From: Gerd Moellmann <gerd@gnu.org>
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))