branch: elpa/annotate
commit 936389e36a3043d849bb2f805d9b8f3869649158
Author: cage <cage-...@twistfold.it>
Commit: cage <cage-...@twistfold.it>
- prevented asking for annotation when trying to annotate a newline
character.
---
annotate.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/annotate.el b/annotate.el
index ec7695992a..a94379bee0 100644
--- a/annotate.el
+++ b/annotate.el
@@ -630,7 +630,9 @@ specified by `from' and `to'."
(t
(if (annotate--position-on-annotated-text-p (point))
(signal 'annotate-annotate-region-overlaps nil)
- (create-new-annotation))))
+ (let ((char-maybe-newline (char-after)))
+ (when (not (char-equal char-maybe-newline ?\n))
+ (create-new-annotation))))))
(set-buffer-modified-p t))))
(cl-defun annotate-goto-next-annotation (&key (startingp t))
