Mercurial > emacs
changeset 24062:dd143e80ffcf
(find-function-on-key): Fix previous
change.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 13 Jan 1999 12:42:28 +0000 |
| parents | c8311bcddab2 |
| children | 2dde27ae5540 |
| files | lisp/emacs-lisp/find-func.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)