branch: elpa/annotate
commit bcffdb9f24aca37a5a153bef7e41e744a797cb3e
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- added some missing docstrings.
---
annotate.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/annotate.el b/annotate.el
index 43666e9196..c982185bf9 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1510,6 +1510,8 @@ NOTE this assumes that annotations never overlaps"
(right-ends))))
(defun annotate-make-annotation (beginning ending annotation annotated-text)
+ "Build a annotation data structure that can be dumped on a
+metadata file database"
(list beginning ending annotation annotated-text))
(defun annotate-describe-annotations ()
@@ -1592,6 +1594,8 @@ sophisticated way than plain text"
(goto-char (button-get button 'go-to))))))))
(defun annotate-summary-delete-annotation-button-pressed (button)
+ "Function to be called when a 'delete' button in summary window
+is activated"
(let* ((filename (button-get button 'file))
(beginning (button-get button 'beginning))
(ending (button-get button 'ending))
@@ -1611,6 +1615,8 @@ sophisticated way than plain text"
(read-only-mode 1))))
(defun annotate-summary-replace-annotation-button-pressed (button)
+ "Function to be called when a 'replace' button in summary window
+is activated"
(let* ((filename (button-get button 'file))
(annotation-beginning (button-get button 'beginning))
(annotation-ending (button-get button 'ending))
