From 43920c264421c72d6846d1da68727043a74240a1 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 13 Jan 1999 12:42:28 +0000 Subject: [PATCH] (find-function-on-key): Fix previous change. --- lisp/emacs-lisp/find-func.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index a37e64502dc..3ae98c08a39 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -352,7 +352,7 @@ See `find-variable' for more details." Point is saved if FUNCTION is in the current buffer." (interactive "kFind function on key: ") (save-excursion - (let* ((event (aref key 0)) + (let* ((event (and (eventp key) (aref key 0))) ; Null event OK below. (start (event-start event)) (modifiers (event-modifiers event)) (window (and (or (memq 'click modifiers) (memq 'down modifiers) -- 2.39.2