diff options
| author | Richard M. Stallman | 1998-03-03 01:01:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-03 01:01:55 +0000 |
| commit | 61ee73836b850cd8efd5d959e20b6400e89d985c (patch) | |
| tree | 5d160f62567cb2dc2c9fb2ba589cd966091707b2 | |
| parent | f09d4cf21bf087e05717ca3982d60e1529718578 (diff) | |
| download | emacs-61ee73836b850cd8efd5d959e20b6400e89d985c.tar.gz emacs-61ee73836b850cd8efd5d959e20b6400e89d985c.zip | |
(easy-menu-change): Handle case of no keywords.
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 2 |
1 files changed, 1 insertions, 1 deletions
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\\)?\\)\\)$" | |||
| 186 | ((vectorp item) | 186 | ((vectorp item) |
| 187 | (setq name (setq item-string (aref item 0))) | 187 | (setq name (setq item-string (aref item 0))) |
| 188 | (setq command (easy-menu-make-symbol (aref item 1) t)) | 188 | (setq command (easy-menu-make-symbol (aref item 1) t)) |
| 189 | (let ((active (aref item 2)) | 189 | (let ((active (if (> (length item) 2) (aref item 2) t)) |
| 190 | (count 2) | 190 | (count 2) |
| 191 | style selected) | 191 | style selected) |
| 192 | (if (and (symbolp active) (= ?: (aref (symbol-name active) 0))) | 192 | (if (and (symbolp active) (= ?: (aref (symbol-name active) 0))) |