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)
