/[emacs]/emacs/lisp/play/mpuz.el
ViewVC logotype

Diff of /emacs/lisp/play/mpuz.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by dann, Mon Aug 15 21:29:32 2005 UTC revision 1.32 by rfrancoise, Sat Sep 24 23:26:26 2005 UTC
# Line 400  You may abort a game by typing \\<mpuz-m Line 400  You may abort a game by typing \\<mpuz-m
400  (defun mpuz-offer-abort ()  (defun mpuz-offer-abort ()
401    "Ask if user wants to abort current puzzle."    "Ask if user wants to abort current puzzle."
402    (interactive)    (interactive)
403    (if (y-or-n-p "Abort game ")    (if (y-or-n-p "Abort game? ")
404        (let ((buf (mpuz-get-buffer)))        (let ((buf (mpuz-get-buffer)))
405          (message "Mult Puzzle aborted.")          (message "Mult Puzzle aborted.")
406          (setq mpuz-in-progress nil          (setq mpuz-in-progress nil
# Line 444  You may abort a game by typing \\<mpuz-m Line 444  You may abort a game by typing \\<mpuz-m
444                 (mpuz-ding t))                 (mpuz-ding t))
445                (t                (t
446                 (mpuz-try-proposal letter-char digit-char))))                 (mpuz-try-proposal letter-char digit-char))))
447      (if (y-or-n-p "Start a new game ")      (if (y-or-n-p "Start a new game? ")
448          (mpuz-start-new-game)          (mpuz-start-new-game)
449        (message "OK. I won't."))))        (message "OK. I won't."))))
450    
# Line 489  You may abort a game by typing \\<mpuz-m Line 489  You may abort a game by typing \\<mpuz-m
489                                 (t                       "not serious.")))))                                 (t                       "not serious.")))))
490      (message message)      (message message)
491      (sit-for 4)      (sit-for 4)
492      (if (y-or-n-p (concat message "  Start a new game "))      (if (y-or-n-p (concat message "  Start a new game? "))
493          (mpuz-start-new-game)          (mpuz-start-new-game)
494        (message "Good Bye!"))))        (message "Good Bye!"))))
495    

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26