From 8b0697787a0fa558ef04c8d1f52f00894aa1d4d0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 14 Jun 1998 19:04:40 +0000 Subject: [PATCH] (find-function-on-key): Don't discard up event after down event. --- lisp/emacs-lisp/find-func.el | 8 -------- 1 file changed, 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) -- 2.39.5