(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 584688ee19a8b2c771372c1bcbb9130780ec253a..ff377e2e85adc754c4bc0ed49a6e7bc418d1e0a4 100644 (file)
--- 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 2f71f624ccb6b61d4f029eab80d10f02681ff4e4..ccc4e905caa2dca7f79aa2399cafaa425bd3c2cc 100644 (file)
--- 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)))