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

(lisp-interaction-mode-map)

Browse source 
(emacs-lisp-mode-map, lisp-mode-map): Use set-keymap-parent.
This commit is contained in:
Richard M. Stallman 1998-03-08 23:40:28 +00:00
parent be456a1d88
commit b8bc6df2ee
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/lisp-mode.el
View file

@ -148,8 +148,8 @@ All commands in `shared-lisp-mode-map' are inherited by this map.")
(if emacs-lisp-mode-map (if emacs-lisp-mode-map
() ()
(let ((map (make-sparse-keymap "Emacs-Lisp"))) (let ((map (make-sparse-keymap "Emacs-Lisp")))
(setq emacs-lisp-mode-map (setq emacs-lisp-mode-map (make-sparse-keymap))
(nconc (make-sparse-keymap) shared-lisp-mode-map)) (set-keymap-parent emacs-lisp-mode-map shared-lisp-mode-map)
(define-key emacs-lisp-mode-map "\e\t" 'lisp-complete-symbol) (define-key emacs-lisp-mode-map "\e\t" 'lisp-complete-symbol)
(define-key emacs-lisp-mode-map "\e\C-x" 'eval-defun) (define-key emacs-lisp-mode-map "\e\C-x" 'eval-defun)
(define-key emacs-lisp-mode-map [menu-bar] (make-sparse-keymap)) (define-key emacs-lisp-mode-map [menu-bar] (make-sparse-keymap))
@ -221,8 +221,8 @@ All commands in `shared-lisp-mode-map' are inherited by this map.")
(if lisp-mode-map (if lisp-mode-map
() ()
(setq lisp-mode-map (setq lisp-mode-map (make-sparse-keymap))
(nconc (make-sparse-keymap) shared-lisp-mode-map)) (set-keymap-parent lisp-mode-map shared-lisp-mode-map)
(define-key lisp-mode-map "\e\C-x" 'lisp-eval-defun) (define-key lisp-mode-map "\e\C-x" 'lisp-eval-defun)
(define-key lisp-mode-map "\C-c\C-z" 'run-lisp)) (define-key lisp-mode-map "\C-c\C-z" 'run-lisp))
@ -259,8 +259,8 @@ All commands in `shared-lisp-mode-map' are inherited by this map.")
(if lisp-interaction-mode-map (if lisp-interaction-mode-map
() ()
(setq lisp-interaction-mode-map (setq lisp-interaction-mode-map (make-sparse-keymap))
(nconc (make-sparse-keymap) shared-lisp-mode-map)) (set-keymap-parent lisp-interaction-mode-map shared-lisp-mode-map)
(define-key lisp-interaction-mode-map "\e\C-x" 'eval-defun) (define-key lisp-interaction-mode-map "\e\C-x" 'eval-defun)
(define-key lisp-interaction-mode-map "\e\t" 'lisp-complete-symbol) (define-key lisp-interaction-mode-map "\e\t" 'lisp-complete-symbol)
(define-key lisp-interaction-mode-map "\n" 'eval-print-last-sexp)) (define-key lisp-interaction-mode-map "\n" 'eval-print-last-sexp))