diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-18 05:06:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-18 05:06:35 +0000 |
| commit | 1c45ffdf8add1643fbf21f4750716b348a644727 (patch) | |
| tree | dea35f019baa3cd3d5e3f8cedda87946e0b2296b /lisp/emacs-lisp | |
| parent | bbea4f40f93737c9cb005504c14128d8d4d78453 (diff) | |
| download | emacs-1c45ffdf8add1643fbf21f4750716b348a644727.tar.gz emacs-1c45ffdf8add1643fbf21f4750716b348a644727.tar.bz2 emacs-1c45ffdf8add1643fbf21f4750716b348a644727.zip | |
(make-lucid-menu-keymap-disable): New variable.
(make-lucid-menu-keymap): Use that when disabling item unconditionally.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lmenu.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el index 9d4855fcc1f..8c152399a05 100644 --- a/lisp/emacs-lisp/lmenu.el +++ b/lisp/emacs-lisp/lmenu.el @@ -52,6 +52,9 @@ (defvar add-menu-item-count 0) +;; This is a variable whose value is always nil. +(defvar make-lucid-menu-keymap-disable nil) + ;; Return a menu keymap corresponding to a Lucid-style menu list ;; MENU-ITEMS, and with name MENU-NAME. (defun make-lucid-menu-keymap (menu-name menu-items) @@ -73,7 +76,9 @@ (setq command (make-symbol (format "menu-function-%d" add-menu-item-count))) (setq add-menu-item-count (1+ add-menu-item-count)) - (put command 'menu-enable (aref item 2)) + (if (aref item 2) + (put command 'menu-enable (aref item 2)) + (put command 'menu-enable 'make-lucid-menu-keymap-disable)) (setq name (aref item 0)) (if (symbolp callback) (fset command callback) |