(make-mode-line-mouse-sensitive): Copy keymap

assigned to mode-line-mode-menu because bindings.el is dumped with
Emacs, and thus the lists used for menu-item definition will be
copied to pure space.  Emacs' menu code (parse_menu_item) doesn't
like pure menu item definitions.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 584688ee19a..ff377e2e85a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 1999-12-30  Gerd Moellmann  <gerd@gnu.org>
 
+        * bindings.el (make-mode-line-mouse-sensitive): Copy keymap
+        assigned to mode-line-mode-menu because bindings.el is dumped with
+        Emacs, and thus the lists used for menu-item definition will be
+        copied to pure space.  Emacs' menu code (parse_menu_item) doesn't
+        like pure menu item definitions.
+
         * expand.el (expand-abbrev-hook): Return t if expansion was
         done, nil otherwise.
 
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 2f71f624ccb..ccc4e905caa 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -237,7 +237,7 @@ Menu of mode operations in the mode line.")
       (define-key map [overwrite-mode]
         '(menu-item "Overwrite" overwrite-mode
                     :active t :style toggle :selected overwrite-mode))
-      (setq mode-line-mode-menu map)
+      (setq mode-line-mode-menu (copy-keymap map))
       (defun mode-line-mode-menu (event)
         (interactive "@e")
         (x-popup-menu event mode-line-mode-menu)))