diff options
| author | Dave Love <fx@gnu.org> | 1999-01-13 12:42:28 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-01-13 12:42:28 +0000 |
| commit | 43920c264421c72d6846d1da68727043a74240a1 (patch) | |
| tree | caee94028782cc36ab308b397f4765c95f6a1078 /lisp/emacs-lisp | |
| parent | 481f215b5e65b2aac3dff8ef4d43c471f4f5e907 (diff) | |
| download | emacs-43920c264421c72d6846d1da68727043a74240a1.tar.gz emacs-43920c264421c72d6846d1da68727043a74240a1.tar.bz2 emacs-43920c264421c72d6846d1da68727043a74240a1.zip | |
(find-function-on-key): Fix previous
change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |