Mercurial > emacs
diff lisp/help.el @ 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 | 00977877718a |
children | d0fab2f2af5a |
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))