branch: master
commit 11bcff04783023d2d8a85c1bb0329b250d7f6b47
Author: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Commit: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Updated docstrings; removed debug print from partial rescan
---
ztree-diff.el | 1 -
ztree-util.el | 12 ++++++------
2 files changed, 6 insertions(+), 7 deletions(-)
diff --git a/ztree-diff.el b/ztree-diff.el
index e441202..8a6f9ae 100644
--- a/ztree-diff.el
+++ b/ztree-diff.el
@@ -140,7 +140,6 @@ including . and ..")
(defun ztree-diff-existing-common (node)
(let ((left (ztree-diff-node-left-path node))
(right (ztree-diff-node-right-path node)))
- (princ (ztree-diff-node-to-string node))
(if (and left right
(file-exists-p left)
(file-exists-p right))
diff --git a/ztree-util.el b/ztree-util.el
index 8ea198d..d3b9bdb 100644
--- a/ztree-util.el
+++ b/ztree-util.el
@@ -75,15 +75,15 @@ argument - the record; \"field\" is from \"record-fields\"
symbols
arguments - the record and the field value
Example:
-`(defrecord person (name age))`
+\(defrecord person (name age))
will be expanded to the following functions:
-`(defun person-create (name age) (...)`
-`(defun person-name (record) (...)`
-`(defun person-age (record) (...)`
-`(defun person-set-name (record value) (...)`
-`(defun person-set-age (record value) (...)`"
+\(defun person-create (name age) (...)
+\(defun person-name (record) (...)
+\(defun person-age (record) (...)
+\(defun person-set-name (record value) (...)
+\(defun person-set-age (record value) (...)"
(let ((ctor-name (intern (concat (symbol-name record-name) "-create")))
(rec-var (make-symbol "record")))
`(progn
