diff options
Diffstat (limited to 'lisp/play/mpuz.el')
| -rw-r--r-- | lisp/play/mpuz.el | 51 |
1 files changed, 26 insertions, 25 deletions
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el index 954730c9491..c5b74a8499f 100644 --- a/lisp/play/mpuz.el +++ b/lisp/play/mpuz.el @@ -87,33 +87,34 @@ t means never ding, and `error' means only ding on wrong input." :type 'hook :group 'mpuz) -(defvar mpuz-mode-map nil +(defvar mpuz-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "a" 'mpuz-try-letter) + (define-key map "b" 'mpuz-try-letter) + (define-key map "c" 'mpuz-try-letter) + (define-key map "d" 'mpuz-try-letter) + (define-key map "e" 'mpuz-try-letter) + (define-key map "f" 'mpuz-try-letter) + (define-key map "g" 'mpuz-try-letter) + (define-key map "h" 'mpuz-try-letter) + (define-key map "i" 'mpuz-try-letter) + (define-key map "j" 'mpuz-try-letter) + (define-key map "A" 'mpuz-try-letter) + (define-key map "B" 'mpuz-try-letter) + (define-key map "C" 'mpuz-try-letter) + (define-key map "D" 'mpuz-try-letter) + (define-key map "E" 'mpuz-try-letter) + (define-key map "F" 'mpuz-try-letter) + (define-key map "G" 'mpuz-try-letter) + (define-key map "H" 'mpuz-try-letter) + (define-key map "I" 'mpuz-try-letter) + (define-key map "J" 'mpuz-try-letter) + (define-key map "\C-g" 'mpuz-offer-abort) + (define-key map "?" 'describe-mode) + map) "Local keymap to use in Mult Puzzle.") -(if mpuz-mode-map nil - (setq mpuz-mode-map (make-sparse-keymap)) - (define-key mpuz-mode-map "a" 'mpuz-try-letter) - (define-key mpuz-mode-map "b" 'mpuz-try-letter) - (define-key mpuz-mode-map "c" 'mpuz-try-letter) - (define-key mpuz-mode-map "d" 'mpuz-try-letter) - (define-key mpuz-mode-map "e" 'mpuz-try-letter) - (define-key mpuz-mode-map "f" 'mpuz-try-letter) - (define-key mpuz-mode-map "g" 'mpuz-try-letter) - (define-key mpuz-mode-map "h" 'mpuz-try-letter) - (define-key mpuz-mode-map "i" 'mpuz-try-letter) - (define-key mpuz-mode-map "j" 'mpuz-try-letter) - (define-key mpuz-mode-map "A" 'mpuz-try-letter) - (define-key mpuz-mode-map "B" 'mpuz-try-letter) - (define-key mpuz-mode-map "C" 'mpuz-try-letter) - (define-key mpuz-mode-map "D" 'mpuz-try-letter) - (define-key mpuz-mode-map "E" 'mpuz-try-letter) - (define-key mpuz-mode-map "F" 'mpuz-try-letter) - (define-key mpuz-mode-map "G" 'mpuz-try-letter) - (define-key mpuz-mode-map "H" 'mpuz-try-letter) - (define-key mpuz-mode-map "I" 'mpuz-try-letter) - (define-key mpuz-mode-map "J" 'mpuz-try-letter) - (define-key mpuz-mode-map "\C-g" 'mpuz-offer-abort) - (define-key mpuz-mode-map "?" 'describe-mode)) + (defun mpuz-mode () "Multiplication puzzle mode. |