diff options
| author | Richard M. Stallman | 1997-06-18 16:37:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-06-18 16:37:01 +0000 |
| commit | d576ef75bc395d5074651fbfbb419a9f6a19d78f (patch) | |
| tree | 17f80fc96b249e82186b568849833490b740da96 | |
| parent | 74e2a7b575d6fa07c7bbec47a6cfae192b1dc685 (diff) | |
| download | emacs-d576ef75bc395d5074651fbfbb419a9f6a19d78f.tar.gz emacs-d576ef75bc395d5074651fbfbb419a9f6a19d78f.zip | |
(mpuz-congratulate): Don't say "1 errors".
| -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.") |