Mercurial > emacs

changeset 28075:7421de9165d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-drag-region): Don't run up-event handler if hscroll has changed.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 09 Mar 2000 20:07:38 +0000
parents 25557ce6a3a0
children 2acf50f99ced
files lisp/mouse.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Thu Mar 09 13:59:23 2000 +0000
+++ b/lisp/mouse.el	Thu Mar 09 20:07:38 2000 +0000
@@ -554,6 +554,7 @@
 	 (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 @@
 			 (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.