From: Dave Love <fx@gnu.org>
Date: Wed, 13 Jan 1999 12:42:28 +0000 (+0000)
Subject: (find-function-on-key): Fix previous
X-Git-Tag: emacs-20.4~887
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43920c264421c72d6846d1da68727043a74240a1;p=emacs.git

(find-function-on-key): Fix previous
change.
---

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)