(mouse-extend): Pass WINDOW arg to mouse-scroll-subr.

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index 092e1cae6b8e6f958c69314664f94133816c5ec5..881329d7167fb1db5857d23852c6f76d7cfc9ce3 100644 (file)
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -318,16 +318,16 @@ This should be bound to a down-mouse event."
                  (let ((end-row (cdr (cdr (mouse-position)))))
                    (cond
                     ((and end-row (not (bobp)) (< end-row top))
-                     (mouse-scroll-subr (- end-row top)
+                     (mouse-scroll-subr orig-window (- end-row top)
                                         mouse-drag-overlay max))
                     ((and end-row (not (eobp)) (>= end-row bottom))
-                     (mouse-scroll-subr (1+ (- end-row bottom))
+                     (mouse-scroll-subr orig-window (1+ (- end-row bottom))
                                         mouse-drag-overlay min))
                     )))
 
                 ;; On the mode line
                 ((eq (posn-point end) 'mode-line)
-                 (mouse-scroll-subr 1 mouse-drag-overlay min))
+                 (mouse-scroll-subr orig-window 1 mouse-drag-overlay min))
 
                 ;; In original window
                 (t (goto-char (posn-point end)))