[nongnu] elpa/annotate eaf96d584f 349/372: - added confirmation prompt before delete an annotation.

[ELPA Syncer]

branch: elpa/annotate
commit eaf96d584fc68e8a7eb9215c3534c3b20faab165
Author: cage <cage@localhost>
Commit: cage <cage@invalid>

    - added confirmation prompt before delete an annotation.
---
 annotate.el | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/annotate.el b/annotate.el
index 6fd50769b7..038e7bc198 100644
--- a/annotate.el
+++ b/annotate.el
@@ -164,6 +164,12 @@ file will be shown."
   :type 'boolean
   :group 'annotate)
 
+(defcustom annotate-annotation-confirm-deletion t
+ "If non nil a prompt asking confirmation before deleting an
+annotation file will be shown."
+  :type 'boolean
+  :group 'annotate)
+
 (defcustom annotate-annotation-max-size-not-place-new-line 15
  "The maximum `string-width` allowed for an annotation to be
 placed on the right margin of the window instead of its own line
@@ -2076,15 +2082,26 @@ from a chain where `annotation' belong."
        (t
         (move-overlay last-annotation last-annotation-starting-pos 
new-ending-pos))))))
 
-(defun annotate--delete-annotation-prevent-modification (annotation)
+(defun annotate--delete-annotation-chain-prevent-modification (annotation)
+"Delete an annotation chain backing up and restoring modification
+status of the buffer before deltion occured."
   (annotate-ensure-annotation (annotation)
     (annotate-with-restore-modified-bit
      (annotate--delete-annotation-chain annotation))))
 
 (cl-defun annotate-delete-annotation (&optional (point (point)))
+  "Command  to  delete  an  annotation,  `point'  is  the  buffer
+position  where  to  look  for  annotation  (default  the  cursor
+point)."
   (interactive)
   (when-let ((annotation (annotate-annotation-at point)))
-    (annotate--delete-annotation-prevent-modification annotation)))
+    (let* ((confirm-message    "Delete this annotation? [y/N] ")
+           (delete-confirmed-p (or (not annotate-annotation-confirm-deletion)
+                                   (string= (read-from-minibuffer (format 
confirm-message
+                                                                          
annotate-file))
+                                            "y"))))
+      (when delete-confirmed-p
+        (annotate--delete-annotation-prevent-modification annotation)))))
 
 (defun annotate-change-annotation (pos)
   "Change annotation at point. If empty, delete annotation."