From 61ee73836b850cd8efd5d959e20b6400e89d985c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Mar 1998 01:01:55 +0000 Subject: [PATCH] (easy-menu-change): Handle case of no keywords. --- lisp/emacs-lisp/easymenu.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.39.2