procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(easy-menu-change): Handle case of no keywords.

Browse source
This commit is contained in:
Richard M. Stallman 1998-03-03 01:01:55 +00:00
parent f09d4cf21b
commit 61ee73836b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/easymenu.el
View file

@ -186,7 +186,7 @@ shadow\\(Double\\)?Etched\\(In\\|Out\\)\\(Dash\\)?\\)\\)$"
((vectorp item)
(setq name (setq item-string (aref item 0)))
(setq command (easy-menu-make-symbol (aref item 1) t))
(let ((active (aref item 2))
(let ((active (if (> (length item) 2) (aref item 2) t))
(count 2)
style selected)
(if (and (symbolp active) (= ?: (aref (symbol-name active) 0)))