mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Declare and define in one step various mode maps.

Browse source 
* 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.
This commit is contained in:
Dan Nicolaescu 2010-10-10 16:12:30 -07:00
parent dab0271f8d
commit a0310a6c22
21 changed files with 507 additions and 521 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lisp/net/mairix.el
View file

@ -735,23 +735,21 @@ VALUES may contain values for editable fields from current article."
;;;; Major mode for editing/deleting/saving searches
(defvar mairix-searches-mode-map nil "'mairix-searches-mode' keymap.")
;; Keymap
(if (not mairix-searches-mode-map)
(let ((map (make-keymap)))
(define-key map [(return)] 'mairix-select-search)
(define-key map [(down)] 'mairix-next-search)
(define-key map [(up)] 'mairix-previous-search)
(define-key map [(right)] 'mairix-next-search)
(define-key map [(left)] 'mairix-previous-search)
(define-key map "\C-p" 'mairix-previous-search)
(define-key map "\C-n" 'mairix-next-search)
(define-key map [(q)] 'mairix-select-quit)
(define-key map [(e)] 'mairix-select-edit)
(define-key map [(d)] 'mairix-select-delete)
(define-key map [(s)] 'mairix-select-save)
(setq mairix-searches-mode-map map)))
(defvar mairix-searches-mode-map
(let ((map (make-keymap)))
(define-key map [(return)] 'mairix-select-search)
(define-key map [(down)] 'mairix-next-search)
(define-key map [(up)] 'mairix-previous-search)
(define-key map [(right)] 'mairix-next-search)
(define-key map [(left)] 'mairix-previous-search)
(define-key map "\C-p" 'mairix-previous-search)
(define-key map "\C-n" 'mairix-next-search)
(define-key map [(q)] 'mairix-select-quit)
(define-key map [(e)] 'mairix-select-edit)
(define-key map [(d)] 'mairix-select-delete)
(define-key map [(s)] 'mairix-select-save)
(setq mairix-searches-mode-map map))
"'mairix-searches-mode' keymap.")
(defvar mairix-searches-mode-font-lock-keywords)