diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-03-13 15:00:45 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-13 15:00:45 +0000 |
commit | 4b29c200c51eef3bae8c8df1e3ff4716447e6257 (patch) | |
tree | 0c32f8c19e95888b89980071e73f020b1b182985 | |
parent | 582c60f80e0aba5911c5031ea507878db879f880 (diff) | |
download | emacs-4b29c200c51eef3bae8c8df1e3ff4716447e6257.tar.gz |
(string-key-binding): Don't call event-start on
a non-list.
-rw-r--r-- | lisp/help.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 83d8a65a9c9..c1e6ac8c51e 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -214,7 +214,8 @@ or `keymap' property, return the binding of KEY in the string's keymap." (start (when (vectorp key) (if (memq (aref key 0) '(mode-line header-line)) (event-start (aref key 1)) - (event-start (aref key 0))))) + (and (consp (aref key 0)) + (event-start (aref key 0)))))) (string-info (and (consp start) (nth 4 start)))) (when string-info (let* ((string (car string-info)) |