# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 888886915 0
# Node ID 517de9005275eabeef7d02b85f554f2c93bbcfd5
# Parent  e01ca278ca3e40b0557a61af723207f494945c06
(easy-menu-change): Handle case of no keywords.

diff -r e01ca278ca3e -r 517de9005275 lisp/emacs-lisp/easymenu.el
--- 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)))