From: Richard M. Stallman Date: Sun, 31 Jul 1994 17:11:50 +0000 (+0000) Subject: (mouse-extend): Pass WINDOW arg to mouse-scroll-subr. X-Git-Tag: emacs-19.34~7457 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d43fe04903beb2c9705644de12f63cb9c31bcccf;p=emacs.git (mouse-extend): Pass WINDOW arg to mouse-scroll-subr. --- diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index 092e1cae6b8..881329d7167 100644 --- 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)))