(mouse-drag-region): Don't run up-event handler

if hscroll has changed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22da99f2f7b567072e7eeaafafad9cd33165894b..f9bcf40d9e5ad92cb469cb48073cd1c1e1d1ad88 100644 (file)
--- 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 01884f11cfd26c265f7a44ba78f476e4d105f72b..28f3ca2ba10644ad8732256e81188d4a768b0902 100644 (file)
--- 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)))))
 \f
 ;; Commands to handle xterm-style multiple clicks.