mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

(easy-menu-create-menu, easy-menu-do-add-item): Use keywordp.

Browse Source
This commit is contained in:
Dave Love 2000-05-21 17:26:47 +00:00
parent 049a65a311
commit b9f5db901f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -174,9 +174,9 @@ possibly preceded by keyword pairs as described in `easy-menu-define'."
(let ((menu (make-sparse-keymap menu-name))
prop keyword arg label enable filter visible help)
;; Look for keywords.
(while (and menu-items (cdr menu-items)
(symbolp (setq keyword (car menu-items)))
(= ?: (aref (symbol-name keyword) 0)))
(while (and menu-items
(cdr menu-items)
(keywordp (setq keyword (car menu-items))))
(setq arg (cadr menu-items))
(setq menu-items (cddr menu-items))
(cond
@ -240,7 +240,7 @@ possibly preceded by keyword pairs as described in `easy-menu-define'."
cache cache-specified)
(setq label (setq name (aref item 0)))
(if no-name (setq command (easy-menu-make-symbol command)))
(if (and (symbolp active) (= ?: (aref (symbol-name active) 0)))
(if (keywordp active)
(let ((count 2)
keyword arg suffix visible style selected keys)
(setq active nil)