From cc8fdbd3c2e912340269367acc1b3d77e08131d3 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 30 Dec 1999 17:49:14 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 6 ++++++ lisp/bindings.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + * 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))) -- 2.39.5