mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

(find-function-on-key): Don't discard up event after down event.

Browse source
This commit is contained in:
Richard M. Stallman 1998-06-14 19:04:40 +00:00
parent 1674d9a28b
commit 8b0697787a
1 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/find-func.el
View file

@ -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)