Mercurial > emacs
changeset 8889:323936455525
(shell-mode-map): Inherit comint-mode-map, but copy the completion menu.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 18 Sep 1994 20:28:23 +0000 |
| parents | 84527c2d9f75 |
| children | 30d1c79f19b6 |
| files | lisp/shell.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/shell.el Sun Sep 18 20:11:07 1994 +0000 +++ b/lisp/shell.el Sun Sep 18 20:28:23 1994 +0000 @@ -252,12 +252,14 @@ (defvar shell-mode-map nil) (cond ((not shell-mode-map) - (setq shell-mode-map (copy-keymap comint-mode-map)) + (setq shell-mode-map (nconc (make-sparse-keymap) comint-mode-map)) (define-key shell-mode-map "\C-c\C-f" 'shell-forward-command) (define-key shell-mode-map "\C-c\C-b" 'shell-backward-command) (define-key shell-mode-map "\t" 'comint-dynamic-complete) (define-key shell-mode-map "\M-?" 'comint-dynamic-list-filename-completions) + (define-key shell-mode-map [menu-bar completion] + (copy-keymap (lookup-key comint-mode-map [menu-bar completion]))) (define-key-after (lookup-key shell-mode-map [menu-bar completion]) [complete-env-variable] '("Complete Env. Variable Name" . shell-dynamic-complete-environment-variable)