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

menu is shown on the menu bar in shell mode.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99e73df3e17..ca0fe54b300 100644
--- 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 f273540996b..a57106a82fd 100644
--- 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)