[nongnu] elpa/annotate 8481eaf0c2 245/372: - signalled an error when annotating a region and it overlaps with an existing annotation.

[ELPA Syncer]

branch: elpa/annotate
commit 8481eaf0c23a1074468c9d6f14a5df22de3bda16
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>

    - signalled an error when annotating a region and it overlaps with an 
existing annotation.
---
 annotate.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/annotate.el b/annotate.el
index 7ffbdee270..9da366cc1e 100644
--- a/annotate.el
+++ b/annotate.el
@@ -259,6 +259,10 @@ annotation as defined in the database."
   "Annotations database file not found"
   'annotate-error)
 
+(define-error 'annotate-annotate-region-overlaps
+  "Error: the region overlaps with at least an already existing annotation"
+  'annotate-error)
+
 (defun annotate-annotations-exist-p ()
   "Does this buffer contains at least one or more annotations?"
   (cl-find-if 'annotationp
@@ -418,7 +422,7 @@ modified (for example a newline is inserted)."
                                              (overlays-in (region-beginning)
                                                           (region-end)))))
           (if annotations
-              (message "Error: the region overlaps with at least an already 
existing annotation")
+              (signal 'annotate-annotate-region-overlaps annotations)
             (create-new-annotation))))
        (annotation
         (annotate-change-annotation (point))