Mercurial > emacs

changeset 18314:6e13dd3d1e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mpuz-congratulate): Don't say "1 errors".
author Richard M. Stallman <rms@gnu.org>
date Wed, 18 Jun 1997 16:37:01 +0000
parents 083d035f7932
children 3090657a944b
files lisp/play/mpuz.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/mpuz.el	Wed Jun 18 13:22:13 1997 +0000
+++ b/lisp/play/mpuz.el	Wed Jun 18 16:37:01 1997 +0000
@@ -416,8 +416,9 @@
 
 (defun mpuz-congratulate ()
   "Build a congratulation message when puzzle is solved."
-  (format "Puzzle solved with %d errors. %s"
+  (format "Puzzle solved with %d error%s. %s"
 	   mpuz-nb-errors
+	   (if (= mpuz-nb-errors 1) "" "s")
 	   (cond ((= mpuz-nb-errors 0)	      "That's perfect !")
 		 ((= mpuz-nb-errors 1)	      "That's very good !")
 		 ((= mpuz-nb-errors 2)	      "That's good.")