mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(shell-mode-map): Inherit comint-mode-map, but copy the completion menu.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-09-18 20:28:23 +00:00
parent 93103d17ba
commit 1ed30e752a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/shell.el
View File

@ -252,12 +252,14 @@ Thus, this does not include the shell's current directory.")
(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)