diff options
| author | Karl Heuer | 1995-05-17 19:34:18 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-17 19:34:18 +0000 |
| commit | 0579e89d9823bf8a11ce3fffe693ac02a0840c8e (patch) | |
| tree | 3069a3240c2a94939fd61a082a5e36f33bdee51a | |
| parent | a53c766630d99e340eb072c50288932126c09c3e (diff) | |
| download | emacs-0579e89d9823bf8a11ce3fffe693ac02a0840c8e.tar.gz emacs-0579e89d9823bf8a11ce3fffe693ac02a0840c8e.zip | |
(easy-menu-create-keymaps): Set menu-enable prop.
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 6ce754cd35f..9360f778cfc 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el | |||
| @@ -164,7 +164,8 @@ is a list of menu items, as above." | |||
| 164 | selected | 164 | selected |
| 165 | ;; Simulate radio buttons with menu-enable. | 165 | ;; Simulate radio buttons with menu-enable. |
| 166 | (put command 'menu-enable | 166 | (put command 'menu-enable |
| 167 | (list 'not selected))))))) | 167 | (list 'not selected))))) |
| 168 | (put command 'menu-enable keyword))) | ||
| 168 | (if (keymapp callback) | 169 | (if (keymapp callback) |
| 169 | (setq name (concat name " ..."))) | 170 | (setq name (concat name " ..."))) |
| 170 | (if (symbolp callback) | 171 | (if (symbolp callback) |