From: Gerd Moellmann Date: Tue, 13 Mar 2001 15:00:45 +0000 (+0000) Subject: (string-key-binding): Don't call event-start on X-Git-Tag: emacs-pretest-21.0.100~29 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b29c200c51eef3bae8c8df1e3ff4716447e6257;p=emacs.git (string-key-binding): Don't call event-start on a non-list. --- 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))