Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 21116:ccf251830c66
(lisp-interaction-mode-map)
(emacs-lisp-mode-map, lisp-mode-map): Use set-keymap-parent.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 08 Mar 1998 23:40:28 +0000 |
| parents | 90f306f86f5d |
| children | 2816d2c192fb |
comparison
equal
deleted
inserted
replaced
| 21115:fea2f6a2818d | 21116:ccf251830c66 |
|---|---|
| 146 All commands in `shared-lisp-mode-map' are inherited by this map.") | 146 All commands in `shared-lisp-mode-map' are inherited by this map.") |
| 147 | 147 |
| 148 (if emacs-lisp-mode-map | 148 (if emacs-lisp-mode-map |
| 149 () | 149 () |
| 150 (let ((map (make-sparse-keymap "Emacs-Lisp"))) | 150 (let ((map (make-sparse-keymap "Emacs-Lisp"))) |
| 151 (setq emacs-lisp-mode-map | 151 (setq emacs-lisp-mode-map (make-sparse-keymap)) |
| 152 (nconc (make-sparse-keymap) shared-lisp-mode-map)) | 152 (set-keymap-parent emacs-lisp-mode-map shared-lisp-mode-map) |
| 153 (define-key emacs-lisp-mode-map "\e\t" 'lisp-complete-symbol) | 153 (define-key emacs-lisp-mode-map "\e\t" 'lisp-complete-symbol) |
| 154 (define-key emacs-lisp-mode-map "\e\C-x" 'eval-defun) | 154 (define-key emacs-lisp-mode-map "\e\C-x" 'eval-defun) |
| 155 (define-key emacs-lisp-mode-map [menu-bar] (make-sparse-keymap)) | 155 (define-key emacs-lisp-mode-map [menu-bar] (make-sparse-keymap)) |
| 156 (define-key emacs-lisp-mode-map [menu-bar emacs-lisp] | 156 (define-key emacs-lisp-mode-map [menu-bar emacs-lisp] |
| 157 (cons "Emacs-Lisp" map)) | 157 (cons "Emacs-Lisp" map)) |
| 219 "Keymap for ordinary Lisp mode. | 219 "Keymap for ordinary Lisp mode. |
| 220 All commands in `shared-lisp-mode-map' are inherited by this map.") | 220 All commands in `shared-lisp-mode-map' are inherited by this map.") |
| 221 | 221 |
| 222 (if lisp-mode-map | 222 (if lisp-mode-map |
| 223 () | 223 () |
| 224 (setq lisp-mode-map | 224 (setq lisp-mode-map (make-sparse-keymap)) |
| 225 (nconc (make-sparse-keymap) shared-lisp-mode-map)) | 225 (set-keymap-parent lisp-mode-map shared-lisp-mode-map) |
| 226 (define-key lisp-mode-map "\e\C-x" 'lisp-eval-defun) | 226 (define-key lisp-mode-map "\e\C-x" 'lisp-eval-defun) |
| 227 (define-key lisp-mode-map "\C-c\C-z" 'run-lisp)) | 227 (define-key lisp-mode-map "\C-c\C-z" 'run-lisp)) |
| 228 | 228 |
| 229 (defun lisp-mode () | 229 (defun lisp-mode () |
| 230 "Major mode for editing Lisp code for Lisps other than GNU Emacs Lisp. | 230 "Major mode for editing Lisp code for Lisps other than GNU Emacs Lisp. |
| 257 "Keymap for Lisp Interaction moe. | 257 "Keymap for Lisp Interaction moe. |
| 258 All commands in `shared-lisp-mode-map' are inherited by this map.") | 258 All commands in `shared-lisp-mode-map' are inherited by this map.") |
| 259 | 259 |
| 260 (if lisp-interaction-mode-map | 260 (if lisp-interaction-mode-map |
| 261 () | 261 () |
| 262 (setq lisp-interaction-mode-map | 262 (setq lisp-interaction-mode-map (make-sparse-keymap)) |
| 263 (nconc (make-sparse-keymap) shared-lisp-mode-map)) | 263 (set-keymap-parent lisp-interaction-mode-map shared-lisp-mode-map) |
| 264 (define-key lisp-interaction-mode-map "\e\C-x" 'eval-defun) | 264 (define-key lisp-interaction-mode-map "\e\C-x" 'eval-defun) |
| 265 (define-key lisp-interaction-mode-map "\e\t" 'lisp-complete-symbol) | 265 (define-key lisp-interaction-mode-map "\e\t" 'lisp-complete-symbol) |
| 266 (define-key lisp-interaction-mode-map "\n" 'eval-print-last-sexp)) | 266 (define-key lisp-interaction-mode-map "\n" 'eval-print-last-sexp)) |
| 267 | 267 |
| 268 (defun lisp-interaction-mode () | 268 (defun lisp-interaction-mode () |