diff options
| -rw-r--r-- | lisp/play/mpuz.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el index a99182d1689..a0356722124 100644 --- a/lisp/play/mpuz.el +++ b/lisp/play/mpuz.el | |||
| @@ -416,8 +416,9 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]." | |||
| 416 | 416 | ||
| 417 | (defun mpuz-congratulate () | 417 | (defun mpuz-congratulate () |
| 418 | "Build a congratulation message when puzzle is solved." | 418 | "Build a congratulation message when puzzle is solved." |
| 419 | (format "Puzzle solved with %d errors. %s" | 419 | (format "Puzzle solved with %d error%s. %s" |
| 420 | mpuz-nb-errors | 420 | mpuz-nb-errors |
| 421 | (if (= mpuz-nb-errors 1) "" "s") | ||
| 421 | (cond ((= mpuz-nb-errors 0) "That's perfect !") | 422 | (cond ((= mpuz-nb-errors 0) "That's perfect !") |
| 422 | ((= mpuz-nb-errors 1) "That's very good !") | 423 | ((= mpuz-nb-errors 1) "That's very good !") |
| 423 | ((= mpuz-nb-errors 2) "That's good.") | 424 | ((= mpuz-nb-errors 2) "That's good.") |