[elpa] externals/hiddenquote 5324aeb8c8 11/15: Make the prompt in hiddenquote-quit optional

[ELPA Syncer]

branch: externals/hiddenquote
commit 5324aeb8c824da7a71778f70fffe00b4b25f8af5
Author: Mauro Aranda <maurooaranda@gmail.com>
Commit: Mauro Aranda <maurooaranda@gmail.com>

    Make the prompt in hiddenquote-quit optional
    
    * hiddenquote.el (hiddenquote-quit): Make a prefix argument skip the
    prompt.
---
 hiddenquote.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/hiddenquote.el b/hiddenquote.el
index 142dafd4cb..e9838d2cdc 100644
--- a/hiddenquote.el
+++ b/hiddenquote.el
@@ -1533,10 +1533,13 @@ Character cell bindings:
           (setq i (1+ i))))
       (hiddenquote-timer-stop-timer))))
 
-(defun hiddenquote-quit ()
-  "Prompt the user and kill the buffer if the answer is \"yes\"."
-  (interactive)
-  (when (yes-or-no-p "Really quit playing Hiddenquote? ")
+(defun hiddenquote-quit (&optional noprompt)
+  "Stop playing hiddenquote, without saving the progress.
+
+Prompts the user and kills the buffer if the answer is \"yes\".
+With a prefix argument NOPROMPT non-nil, doesn't prompt."
+  (interactive "P")
+  (when (or noprompt (yes-or-no-p "Really quit playing Hiddenquote? "))
     (hiddenquote-timer-stop-timer)
     (let ((name (buffer-name)))
       (dolist (buff (mapcar (lambda (suffix)