Mercurial > emacs
changeset 21027:517de9005275
(easy-menu-change): Handle case of no keywords.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Mar 1998 01:01:55 +0000 |
| parents | e01ca278ca3e |
| children | 0e9e9906db7b |
| files | lisp/emacs-lisp/easymenu.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/easymenu.el Mon Mar 02 22:21:46 1998 +0000 +++ b/lisp/emacs-lisp/easymenu.el Tue Mar 03 01:01:55 1998 +0000 @@ -186,7 +186,7 @@ ((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)))