]> git.eshelyaron.com Git - emacs.git/commitdiff
(string-key-binding): Don't call event-start on
authorGerd Moellmann <gerd@gnu.org>
Tue, 13 Mar 2001 15:00:45 +0000 (15:00 +0000)
committerGerd Moellmann <gerd@gnu.org>
Tue, 13 Mar 2001 15:00:45 +0000 (15:00 +0000)
a non-list.

lisp/help.el

index 83d8a65a9c96ad079749c90230f5d3ae29b239d7..c1e6ac8c51ecf8b5550ce6ad4f2ac109df1a619a 100644 (file)
@@ -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))