diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-14 19:04:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-14 19:04:40 +0000 |
| commit | 8b0697787a0fa558ef04c8d1f52f00894aa1d4d0 (patch) | |
| tree | 12bb68a537dec97d0b38676c995b9a57bee572e3 /lisp/emacs-lisp/find-func.el | |
| parent | 1674d9a28b1e4ea7ca6b39ac1e5d74f9ccb15302 (diff) | |
| download | emacs-8b0697787a0fa558ef04c8d1f52f00894aa1d4d0.tar.gz emacs-8b0697787a0fa558ef04c8d1f52f00894aa1d4d0.tar.bz2 emacs-8b0697787a0fa558ef04c8d1f52f00894aa1d4d0.zip | |
(find-function-on-key): Don't discard up event after down event.
Diffstat (limited to 'lisp/emacs-lisp/find-func.el')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 22b96ac6c51..9c9830b4f5a 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -250,14 +250,6 @@ defined is searched in PATH instead of `load-path'" "Find the function that KEY invokes. KEY is a string. Point is saved if FUNCTION is in the current buffer." (interactive "kFind function on key: ") - ;; If this key seq ends with a down event, discard the - ;; following click or drag event. Otherwise that would - ;; erase an eventual message. - (let ((type (aref key (1- (length key))))) - (if (listp type) (setq type (car type))) - (and (symbolp type) - (memq 'down (event-modifiers type)) - (read-event))) (save-excursion (let ((modifiers (event-modifiers (aref key 0))) window position) |