diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-12-31 17:17:16 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-12-31 17:17:16 +0100 |
| commit | 4521a3a19c123c43f4bb7ad21a94456434ef81f4 (patch) | |
| tree | 30a6a9df55f8df798b5665550851a86259dd0484 /lisp/play/mpuz.el | |
| parent | c09fcb8f07c1fa6864a38c28e3f27298136b8b8e (diff) | |
| download | emacs-4521a3a19c123c43f4bb7ad21a94456434ef81f4.tar.gz emacs-4521a3a19c123c43f4bb7ad21a94456434ef81f4.tar.bz2 emacs-4521a3a19c123c43f4bb7ad21a94456434ef81f4.zip | |
Use defvar-keymap in play/*.el
* lisp/play/5x5.el (5x5-mode-map):
* lisp/play/blackbox.el (blackbox-mode-map):
* lisp/play/bubbles.el (bubbles-mode-map):
* lisp/play/decipher.el (decipher-mode-map):
* lisp/play/doctor.el (doctor-mode-map):
* lisp/play/gametree.el (gametree-mode-map):
* lisp/play/gomoku.el (gomoku-mode-map):
* lisp/play/mpuz.el (mpuz-mode-map):
* lisp/play/pong.el (pong-mode-map):
* lisp/play/solitaire.el (solitaire-mode-map): Use defvar-keymap.
Diffstat (limited to 'lisp/play/mpuz.el')
| -rw-r--r-- | lisp/play/mpuz.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el index df2b6fc867a..6091016b7c3 100644 --- a/lisp/play/mpuz.el +++ b/lisp/play/mpuz.el @@ -76,17 +76,12 @@ The value t means never ding, and `error' means only ding on wrong input." "Hook to run upon entry to mpuz." :type 'hook) -(defvar mpuz-mode-map - (let ((map (make-sparse-keymap))) - (mapc (lambda (ch) - (define-key map (char-to-string ch) 'mpuz-try-letter)) - "abcdefghijABCDEFGHIJ") - (define-key map "\C-g" 'mpuz-offer-abort) - (define-key map "?" 'describe-mode) - map) - "Local keymap to use in Mult Puzzle.") - - +(defvar-keymap mpuz-mode-map + :doc "Local keymap to use in Mult Puzzle." + "C-g" #'mpuz-offer-abort + "?" #'describe-mode) +(dolist (ch (mapcar #'char-to-string "abcdefghijABCDEFGHIJ")) + (keymap-set mpuz-mode-map ch #'mpuz-try-letter)) (define-derived-mode mpuz-mode fundamental-mode "Mult Puzzle" :interactive nil |