From 4b29c200c51eef3bae8c8df1e3ff4716447e6257 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 13 Mar 2001 15:00:45 +0000 Subject: [PATCH] (string-key-binding): Don't call event-start on a non-list. --- lisp/help.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.5