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

46
lisp/array.el
View file

@ -775,32 +775,30 @@ Return COLUMN."
;;; Array mode.
(defvar array-mode-map nil
(defvar array-mode-map
(let ((map (make-keymap)))
(define-key map "\M-ad" 'array-display-local-variables)
(define-key map "\M-am" 'array-make-template)
(define-key map "\M-ae" 'array-expand-rows)
(define-key map "\M-ar" 'array-reconfigure-rows)
(define-key map "\M-a=" 'array-what-position)
(define-key map "\M-ag" 'array-goto-cell)
(define-key map "\M-af" 'array-fill-rectangle)
(define-key map "\C-n" 'array-next-row)
(define-key map "\C-p" 'array-previous-row)
(define-key map "\C-f" 'array-forward-column)
(define-key map "\C-b" 'array-backward-column)
(define-key map "\M-n" 'array-copy-down)
(define-key map "\M-p" 'array-copy-up)
(define-key map "\M-f" 'array-copy-forward)
(define-key map "\M-b" 'array-copy-backward)
(define-key map "\M-\C-n" 'array-copy-row-down)
(define-key map "\M-\C-p" 'array-copy-row-up)
(define-key map "\M-\C-f" 'array-copy-column-forward)
(define-key map "\M-\C-b" 'array-copy-column-backward)
map)
"Keymap used in array mode.")
(if array-mode-map
()
(setq array-mode-map (make-keymap))
;; Bind keys.
(define-key array-mode-map "\M-ad" 'array-display-local-variables)
(define-key array-mode-map "\M-am" 'array-make-template)
(define-key array-mode-map "\M-ae" 'array-expand-rows)
(define-key array-mode-map "\M-ar" 'array-reconfigure-rows)
(define-key array-mode-map "\M-a=" 'array-what-position)
(define-key array-mode-map "\M-ag" 'array-goto-cell)
(define-key array-mode-map "\M-af" 'array-fill-rectangle)
(define-key array-mode-map "\C-n" 'array-next-row)
(define-key array-mode-map "\C-p" 'array-previous-row)
(define-key array-mode-map "\C-f" 'array-forward-column)
(define-key array-mode-map "\C-b" 'array-backward-column)
(define-key array-mode-map "\M-n" 'array-copy-down)
(define-key array-mode-map "\M-p" 'array-copy-up)
(define-key array-mode-map "\M-f" 'array-copy-forward)
(define-key array-mode-map "\M-b" 'array-copy-backward)
(define-key array-mode-map "\M-\C-n" 'array-copy-row-down)
(define-key array-mode-map "\M-\C-p" 'array-copy-row-up)
(define-key array-mode-map "\M-\C-f" 'array-copy-column-forward)
(define-key array-mode-map "\M-\C-b" 'array-copy-column-backward))
(put 'array-mode 'mode-class 'special)