branch: elpa/annotate
commit df704cc03305f7c8407a4575bf8d9e325b55e7c8
Merge: 2e858729cb 818f66f4a3
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
Merge branch 'master' into rethink-multiline-annotations
---
annotate.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/annotate.el b/annotate.el
index eec76934da..0452f2f8e9 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1665,6 +1665,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 ()
@@ -1753,6 +1755,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))
@@ -1772,6 +1776,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))
