# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 984495645 0
# Node ID 4fd2da49b57d67b3c2732ec258f623f6d9fc8b27
# Parent  66a72e7c05aa3db2161c8a5e796a5758ba5faaaa
(string-key-binding): Don't call event-start on
a non-list.

diff -r 66a72e7c05aa -r 4fd2da49b57d lisp/help.el
--- 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))