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

24
lisp/progmodes/inf-lisp.el
View file

@ -80,19 +80,17 @@ mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword
:type 'regexp
:group 'inferior-lisp)
(defvar inferior-lisp-mode-map nil)
(unless inferior-lisp-mode-map
(setq inferior-lisp-mode-map (copy-keymap comint-mode-map))
(set-keymap-parent inferior-lisp-mode-map lisp-mode-shared-map)
(define-key inferior-lisp-mode-map "\C-x\C-e" 'lisp-eval-last-sexp)
(define-key inferior-lisp-mode-map "\C-c\C-l" 'lisp-load-file)
(define-key inferior-lisp-mode-map "\C-c\C-k" 'lisp-compile-file)
(define-key inferior-lisp-mode-map "\C-c\C-a" 'lisp-show-arglist)
(define-key inferior-lisp-mode-map "\C-c\C-d" 'lisp-describe-sym)
(define-key inferior-lisp-mode-map "\C-c\C-f"
'lisp-show-function-documentation)
(define-key inferior-lisp-mode-map "\C-c\C-v"
'lisp-show-variable-documentation))
(defvar inferior-lisp-mode-map
(let ((map (copy-keymap comint-mode-map)))
(set-keymap-parent map lisp-mode-shared-map)
(define-key map "\C-x\C-e" 'lisp-eval-last-sexp)
(define-key map "\C-c\C-l" 'lisp-load-file)
(define-key map "\C-c\C-k" 'lisp-compile-file)
(define-key map "\C-c\C-a" 'lisp-show-arglist)
(define-key map "\C-c\C-d" 'lisp-describe-sym)
(define-key map "\C-c\C-f" 'lisp-show-function-documentation)
(define-key map "\C-c\C-v" 'lisp-show-variable-documentation)
map))
;;; These commands augment Lisp mode, so you can process Lisp code in
;;; the source files.