# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 916231348 0
# Node ID dd143e80ffcf7abd0e0be653056bbb97165c04cf
# Parent  c8311bcddab23357b8878462388a9aa3b781bf0e
(find-function-on-key): Fix previous
change.

diff -r c8311bcddab2 -r dd143e80ffcf lisp/emacs-lisp/find-func.el
--- a/lisp/emacs-lisp/find-func.el	Tue Jan 12 22:20:25 1999 +0000
+++ b/lisp/emacs-lisp/find-func.el	Wed Jan 13 12:42:28 1999 +0000
@@ -352,7 +352,7 @@
 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)