Mercurial > emacs

changeset 29054:25099b559af9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-menu-create-menu, easy-menu-do-add-item): Use keywordp.
author Dave Love <fx@gnu.org>
date Sun, 21 May 2000 17:26:47 +0000
parents 565418f2e425
children 661c97b907a8
files lisp/emacs-lisp/easymenu.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/easymenu.el	Sun May 21 17:24:19 2000 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Sun May 21 17:26:47 2000 +0000
@@ -174,9 +174,9 @@
   (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 @@
 	     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)