mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-drag-region): Use functionp rather than fboundp.

Browse source
This commit is contained in:
Stefan Monnier 2000-07-09 18:36:21 +00:00
parent 0b50c67ff6
commit f45aab653b
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/mouse.el
View file

@ -677,7 +677,7 @@ remains active. Otherwise, it remains until the next input event."
(mouse-set-region-1))))
(delete-overlay mouse-drag-overlay)
;; Run the binding of the terminating up-event.
(when (and (fboundp fun)
(when (and (functionp fun)
(= start-hscroll (window-hscroll start-window)))
(setq unread-command-events
(cons event unread-command-events)))))