diff options
| author | Dave Love <fx@gnu.org> | 2000-05-21 17:26:47 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-05-21 17:26:47 +0000 |
| commit | b9f5db901fd414dbf8c13c575f4cf411c6fedb0e (patch) | |
| tree | 4a274b0af5c5618df9ee6d007f24619a16deb052 /lisp/emacs-lisp | |
| parent | 049a65a311633680440f616da185378ba39d107a (diff) | |
| download | emacs-b9f5db901fd414dbf8c13c575f4cf411c6fedb0e.tar.gz emacs-b9f5db901fd414dbf8c13c575f4cf411c6fedb0e.tar.bz2 emacs-b9f5db901fd414dbf8c13c575f4cf411c6fedb0e.zip | |
(easy-menu-create-menu, easy-menu-do-add-item): Use keywordp.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 70343580209..ae3af3cc644 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -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) |