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): Don't run up-event handler

Browse source 
if hscroll has changed.
This commit is contained in:
Gerd Moellmann 2000-03-09 20:08:49 +00:00
parent f74bbbbf55
commit 1853aa6bc9
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/mouse.el
View file

@ -554,6 +554,7 @@ remains active. Otherwise, it remains until the next input event."
(start-point (posn-point start-posn))
(start-window (posn-window start-posn))
(start-frame (window-frame start-window))
(start-hscroll (window-hscroll start-window))
(bounds (window-edges start-window))
(top (nth 1 bounds))
(bottom (if (window-minibuffer-p start-window)
@ -676,9 +677,10 @@ 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.
(if (fboundp fun)
(setq unread-command-events
(cons event unread-command-events)))))
(when (and (fboundp fun)
(= start-hscroll (window-hscroll start-window)))
(setq unread-command-events
(cons event unread-command-events)))))
(delete-overlay mouse-drag-overlay)))))
;; Commands to handle xterm-style multiple clicks.