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 |
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 |
|
|
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 |
|
|