Mercurial > emacs
comparison lisp/emacs-lisp/easymenu.el @ 11833:0813e063f926
(easy-menu-create-keymaps): Set menu-enable prop.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 17 May 1995 19:34:18 +0000 |
| parents | a196f05240a9 |
| children | 0c39d1945e5e |
comparison
equal
deleted
inserted
replaced
| 11832:7c2d57ac784f | 11833:0813e063f926 |
|---|---|
| 162 (put command 'menu-enable active) | 162 (put command 'menu-enable active) |
| 163 (and (eq style 'radio) | 163 (and (eq style 'radio) |
| 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) |
| 171 (fset command callback) | 172 (fset command callback) |
| 172 (fset command (list 'lambda () '(interactive) callback))))) | 173 (fset command (list 'lambda () '(interactive) callback))))) |