From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 9 Mar 2000 20:08:49 +0000 (+0000)
Subject: (mouse-drag-region): Don't run up-event handler
X-Git-Tag: emacs-pretest-21.0.90~4703
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1853aa6bc9d2cd9c74d8778f32785a616f0ba1ae;p=emacs.git

(mouse-drag-region): Don't run up-event handler
if hscroll has changed.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22da99f2f7b..f9bcf40d9e5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-03-09  Gerd Moellmann  <gerd@gnu.org>
 
+	* mouse.el (mouse-drag-region): Don't run up-event handler
+	if hscroll has changed.
+
 	* octave-mod.el (octave-font-lock-keywords): To font-lock the
 	builtin operators, use `font-lock-builtin-face' for Emacs and
 	`font-lock-preprocessor-face' otherwise.
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 01884f11cfd..28f3ca2ba10 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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.