Mercurial > emacs

changeset 8396:8085e84cac68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-extend): Pass WINDOW arg to mouse-scroll-subr.
author Richard M. Stallman <rms@gnu.org>
date Sun, 31 Jul 1994 17:11:50 +0000
parents 4601ff818876
children 4cb8a2ab8f60
files lisp/mouse-sel.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse-sel.el	Sun Jul 31 06:37:57 1994 +0000
+++ b/lisp/mouse-sel.el	Sun Jul 31 17:11:50 1994 +0000
@@ -318,16 +318,16 @@
 		  (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)))