# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 946576102 0
# Node ID 32ebef66c1be2d7af3c0868089b657fef107065c
# Parent  936229b925c8190e4e5700462b8f659dd96ac9fd
(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 -r 936229b925c8 -r 32ebef66c1be lisp/bindings.el
--- a/lisp/bindings.el	Thu Dec 30 14:14:38 1999 +0000
+++ b/lisp/bindings.el	Thu Dec 30 17:48:22 1999 +0000
@@ -237,7 +237,7 @@
       (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)))