# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866651821 0
# Node ID 6e13dd3d1e1141cb69a8445611d58fb9a854ed93
# Parent  083d035f7932cc73a4652c7df6a8933a4b521cf3
(mpuz-congratulate): Don't say "1 errors".

diff -r 083d035f7932 -r 6e13dd3d1e11 lisp/play/mpuz.el
--- 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.")