[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hiddenquote c0677533e8: Avoid prompting when the puzzle
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/hiddenquote c0677533e8: Avoid prompting when the puzzle is complete |
|
Date: |
Tue, 7 Nov 2023 18:58:06 -0500 (EST) |
branch: externals/hiddenquote
commit c0677533e8aa6b2734e7b4b6f0b977a5c226acff
Author: Mauro Aranda <maurooaranda@gmail.com>
Commit: Mauro Aranda <maurooaranda@gmail.com>
Avoid prompting when the puzzle is complete
* hiddenquote.el (hiddenquote-quit): Check puzzle completeness and
avoid prompting.
---
hiddenquote.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/hiddenquote.el b/hiddenquote.el
index d8ea11d702..634c14655e 100644
--- a/hiddenquote.el
+++ b/hiddenquote.el
@@ -1692,9 +1692,11 @@ With a prefix argument NOPROMPT non-nil, doesn't prompt."
"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."
+Kills the buffer unconditionally With a prefix argument NOPROMPT non-nil,
+or if the puzzle is complete."
(interactive "P")
- (when (or noprompt (yes-or-no-p "Really quit playing Hiddenquote? "))
+ (when (or noprompt (hiddenquote-puzzle-complete-p)
+ (yes-or-no-p "Really quit playing Hiddenquote? "))
(hiddenquote-timer-stop-timer)
(let ((name (buffer-name)))
(dolist (buff (mapcar (lambda (suffix)
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/hiddenquote c0677533e8: Avoid prompting when the puzzle is complete,
ELPA Syncer <=