# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 958930007 0
# Node ID 25099b559af90716416296d6129bc65c9c98d7ba
# Parent  565418f2e4250892fd573c2ab9f1fc25e710680b
(easy-menu-create-menu, easy-menu-do-add-item): Use keywordp.

diff -r 565418f2e425 -r 25099b559af9 lisp/emacs-lisp/easymenu.el
--- 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)