Mercurial > emacs
changeset 36777:4fd2da49b57d
(string-key-binding): Don't call event-start on
a non-list.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 13 Mar 2001 15:00:45 +0000 |
| parents | 66a72e7c05aa |
| children | d7f99449b2d3 |
| files | lisp/help.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Tue Mar 13 14:36:25 2001 +0000 +++ b/lisp/help.el Tue Mar 13 15:00:45 2001 +0000 @@ -214,7 +214,8 @@ (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))