mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(easy-menu-create-keymaps): If nil is

Browse Source 
given as the enable condition, always disable the command.
This commit is contained in:
Richard M. Stallman 1997-08-28 03:04:18 +00:00
parent 4c69a3beaf
commit a9f8f395d5
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emacs-lisp/easymenu.el
View File

@ -142,7 +142,7 @@ is a list of menu items, as above."
(if (and (symbolp keyword)
(= ?: (aref (symbol-name keyword) 0)))
(let ((count 2)
style selected active keys
style selected active keys active-specified
arg)
(while (> (length item) count)
(setq keyword (aref item count))
@ -151,7 +151,8 @@ is a list of menu items, as above."
(cond ((eq keyword ':keys)
(setq keys arg))
((eq keyword ':active)
(setq active arg))
(setq active (or arg ''nil)
active-specified t))
((eq keyword ':suffix)
(setq item-string
(concat item-string " " arg)))
@ -185,8 +186,10 @@ is a list of menu items, as above."
(setcar (car old-items)
(concat " " (car (car old-items))))
(setq old-items (cdr old-items)))))
(if active (put command 'menu-enable active)))
(put command 'menu-enable keyword)))
(if active-specified (put command 'menu-enable active)))
;; If the third element is nil,
;; make this command always disabled.
(put command 'menu-enable (or keyword ''nil))))
(if (symbolp callback)
(fset command callback)
(fset command (list 'lambda () '(interactive) callback)))