Mercurial > emacs
comparison lisp/play/mpuz.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 16 Dec 2007 05:08:49 +0000 |
| parents | f55f9811f5d7 e50a2e215441 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
|---|---|
| 487 ((= mpuz-nb-errors 3) "not bad.") | 487 ((= mpuz-nb-errors 3) "not bad.") |
| 488 ((= mpuz-nb-errors 4) "not too bad...") | 488 ((= mpuz-nb-errors 4) "not too bad...") |
| 489 ((< mpuz-nb-errors 10) "bad!") | 489 ((< mpuz-nb-errors 10) "bad!") |
| 490 ((< mpuz-nb-errors 15) "awful.") | 490 ((< mpuz-nb-errors 15) "awful.") |
| 491 (t "not serious."))))) | 491 (t "not serious."))))) |
| 492 (message message) | 492 (message "%s" message) |
| 493 (sit-for 4) | 493 (sit-for 4) |
| 494 (if (y-or-n-p (concat message " Start a new game? ")) | 494 (if (y-or-n-p (concat message " Start a new game? ")) |
| 495 (mpuz-start-new-game) | 495 (mpuz-start-new-game) |
| 496 (message "Good Bye!")))) | 496 (message "Good Bye!")))) |
| 497 | 497 |