diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2010-10-10 16:12:30 -0700 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2010-10-10 16:12:30 -0700 |
| commit | a0310a6c2226b23bc25c2dd66c8dd9664fdeb022 (patch) | |
| tree | 31c8181c70d9f9a3d0532f128b38a0fcb62f9d8c /lisp/net/dig.el | |
| parent | dab0271f8dfd284e0ecd5022745a67c182410b81 (diff) | |
| download | emacs-a0310a6c2226b23bc25c2dd66c8dd9664fdeb022.tar.gz | |
Declare and define in one step various mode maps.
* lisp/shell.el (shell-mode-map):
* lisp/progmodes/modula2.el (m2-mode-map):
* lisp/progmodes/inf-lisp.el (inferior-lisp-mode-map):
* lisp/play/mpuz.el (mpuz-mode-map):
* lisp/play/landmark.el (lm-mode-map):
* lisp/play/decipher.el (decipher-mode-map):
* lisp/play/5x5.el (5x5-mode-map):
* lisp/net/telnet.el (telnet-mode-map):
* lisp/net/quickurl.el (quickurl-list-mode-map):
* lisp/net/mairix.el (mairix-searches-mode-map):
* lisp/net/eudc-hotlist.el (eudc-hotlist-mode-map):
* lisp/net/dig.el (dig-mode-map):
* lisp/mail/mspools.el (mspools-mode-map):
* lisp/hexl.el (hexl-mode-map):
* lisp/emulation/ws-mode.el (wordstar-C-k-map, wordstar-mode-map)
(wordstar-C-o-map, wordstar-C-q-map):
* lisp/emacs-lisp/edebug.el (edebug-eval-mode-map):
* lisp/emacs-lisp/chart.el (chart-map):
* lisp/edmacro.el (edmacro-mode-map):
* lisp/array.el (array-mode-map): Declare and define in one step.
* lisp/erc/erc-list.el (erc-list-menu-mode-map): Declare and define in one step.
Diffstat (limited to 'lisp/net/dig.el')
| -rw-r--r-- | lisp/net/dig.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/net/dig.el b/lisp/net/dig.el index 9392c73855b..d36247a1d1f 100644 --- a/lisp/net/dig.el +++ b/lisp/net/dig.el @@ -129,12 +129,11 @@ Buffer should contain output generated by `dig-invoke'." (put 'dig-mode 'mode-class 'special) -(defvar dig-mode-map nil) -(unless dig-mode-map - (setq dig-mode-map (make-sparse-keymap)) - (suppress-keymap dig-mode-map) - - (define-key dig-mode-map "q" 'dig-exit)) +(defvar dig-mode-map + (let ((map (make-sparse-keymap))) + (suppress-keymap map) + (define-key map "q" 'dig-exit) + map)) (define-derived-mode dig-mode nil "Dig" "Major mode for displaying dig output." |