(shell-mode-map): Add "Complete" header so completion

menu is shown on the menu bar in shell mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99e73df3e177ec42f4ac3cb614963187009d7b6e..ca0fe54b300fc83097180d8925c2a177a6c42cf5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-25  Kim F. Storm  <storm@cua.dk>
+
+       * shell.el (shell-mode-map): Add "Complete" header so completion
+       menu is shown on the menu bar in shell mode.
+
 2002-02-25  Stefan Monnier  <monnier@cs.yale.edu>
 
        * ielm.el (ielm-match-data): New var.

diff --git a/lisp/shell.el b/lisp/shell.el
index f273540996b60cbb73c713fec1a52c2dea7a071c..a57106a82fd5fd9cd5f614f101b2187029b3587f 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -315,7 +315,8 @@ Thus, this does not include the shell's current directory.")
        (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])))
+        (cons "Complete" 
+              (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)