summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1999-06-17 05:29:34 +0000
committerKarl Heuer <kwzh@gnu.org>1999-06-17 05:29:34 +0000
commitf5ce44a11de07206b47bf863427232009176cc91 (patch)
tree2e846aa3418bb08b1da148367d6240c9610f6700
parent7a0ad068e12cc90d384b757a0895deb868bcfd12 (diff)
downloademacs-f5ce44a11de07206b47bf863427232009176cc91.tar.gz
(mpuz-try-proposal): Fix message call.
Don't penalize player for certain impossible guesses.
-rw-r--r--lisp/play/mpuz.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index 8f0f2f688e4..c0323610ab1 100644
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -393,7 +393,9 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
(digit (- digit-char ?0))
(correct-digit (mpuz-to-digit letter)))
(cond ((mpuz-digit-solved-p correct-digit)
- (message "%c has already been found."))
+ (message "%c has already been found." (+ correct-digit ?0)))
+ ((mpuz-digit-solved-p digit)
+ (message "%c has already been placed." digit-char))
((= digit correct-digit)
(message "%c = %c correct !" letter-char digit-char)
(mpuz-ding)