From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 3 Mar 1998 01:01:55 +0000 (+0000)
Subject: (easy-menu-change): Handle case of no keywords.
X-Git-Tag: emacs-20.3~2047
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61ee73836b850cd8efd5d959e20b6400e89d985c;p=emacs.git

(easy-menu-change): Handle case of no keywords.
---

diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index ec8c8cd488f..e92f31568c6 100644
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -186,7 +186,7 @@ shadow\\(Double\\)?Etched\\(In\\|Out\\)\\(Dash\\)?\\)\\)$"
      ((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)))