From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 18 Sep 1994 20:28:23 +0000 (+0000)
Subject: (shell-mode-map): Inherit comint-mode-map, but copy the completion menu.
X-Git-Tag: emacs-19.34~6965
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ed30e752a465c8f34ed5ffce9ab9d6e2b064ff0;p=emacs.git

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

diff --git a/lisp/shell.el b/lisp/shell.el
index 3a502634312..98c3b48fc69 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -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)