[nongnu] elpa/annotate 5bc3415d56 353/372: - used 'yes-or-no-p' (customizable via a variable) to ask for deletion confirm.

[ELPA Syncer]

branch: elpa/annotate
commit 5bc3415d5683894c5a6f313aa84c4083a58baca7
Author: cage <cage@invalid>
Commit: cage <cage@invalid>

    - used 'yes-or-no-p' (customizable via a variable) to ask for deletion 
confirm.
---
 annotate.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/annotate.el b/annotate.el
index b6ad32ba5c..9811cdc924 100644
--- a/annotate.el
+++ b/annotate.el
@@ -219,6 +219,11 @@ by the newline character only) instead."
   :type 'boolean
   :group 'annotate)
 
+(defcustom annotate-y-or-n-prompt-function 'yes-or-no-p
+  "Function to be called when asking user for a yes/no question."
+  :type 'function
+  :group 'annotate)
+
 (defconst annotate-prop-chain-position
   'position)
 
@@ -289,6 +294,9 @@ annotation as defined in the database."
 (defconst annotate-summary-replace-button-label "[replace]"
   "The label for the button, in summary window, to replace an annotation.")
 
+(defconst annotate-confirm-deleting-annotation-prompt  "Delete this 
annotation? "
+  "The string for the prompt to be shown when asking for annotation deletion 
confirm.")
+
 ;;;; custom errors
 
 (define-error 'annotate-error "Annotation error")
@@ -2094,11 +2102,7 @@ This function is not part of the public API."
 (defun annotate--confirm-annotation-delete ()
   "Prompt user for delete confirmation.
 This function is not part of the public API."
-  (let ((confirm-message "Delete this annotation? [y/N] "))
-    (or (not annotate-annotation-confirm-deletion)
-        (string= (read-from-minibuffer (format confirm-message
-                                               annotate-file))
-                 "y"))))
+  (funcall annotate-y-or-n-prompt-function 
annotate-confirm-deleting-annotation-prompt))
 
 (cl-defun annotate-delete-annotation (&optional (point (point)))
   "Command  to  delete  an  annotation,  `point'  is  the  buffer