[nongnu] elpa/annotate 253b5e2d7b 118/372: - try to elaborate a bit more the function goal.

[ELPA Syncer]

branch: elpa/annotate
commit 253b5e2d7b0c4801ad481a26001d997e2d6ac19b
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>

    - try to elaborate a bit more the function goal.
---
 annotate.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/annotate.el b/annotate.el
index 04b8f64638..af7428de78 100644
--- a/annotate.el
+++ b/annotate.el
@@ -983,7 +983,11 @@ essentially what you get from:
       (string= "" a)))
 
 (defun annotate-create-annotation (start end &optional text sample)
-  "Create a new annotation for selected region."
+ "Create a new annotation for selected region.
+ If the annotated text can not be found in the interval as
+ defined in the metadata database try to find a matching text
+ in a region surrounding the interval and, if found, annotate
+ that text."
   (cl-labels ((create-annotation     (start end annotation-text)
                                      (let ((highlight (make-overlay start 
end)))
                                        (overlay-put highlight 'face 
'annotate-highlight)