[nongnu] elpa/annotate df704cc033 205/372: Merge branch 'master' into rethink-multiline-annotations

[ELPA Syncer]

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))