changeset 76293:91a6d7f7e1a7

(mouse-drag-mode-line-1, mouse-drag-vertical-line): Don't select the window -- pass it to primitives instead.

--- a/lisp/mouse.el	Sun Mar 04 17:44:42 2007 +0000
+++ b/lisp/mouse.el	Sun Mar 04 17:46:23 2007 +0000
@@ -409,11 +409,6 @@
 	 should-enlarge-minibuffer event mouse y top bot edges wconfig growth)
     (track-mouse
       (progn
-	;; enlarge-window only works on the selected window, so
-	;; we must select the window where the start event originated.
-	;; unwind-protect will restore the old selected window later.
-	(select-window start-event-window)
-
 	;; if this is the bottommost ordinary window, then to
 	;; move its modeline the minibuffer must be enlarged.
 	(setq should-enlarge-minibuffer
@@ -421,7 +416,7 @@
 		   mode-line-p
 		   (not (one-window-p t))
 		   (= (nth 1 (window-edges minibuffer))
-		      (nth 3 (window-edges)))))
+		      (nth 3 (window-edges start-event-window)))))
 
 	;; loop reading events and sampling the position of
 	;; the mouse.
@@ -459,7 +454,7 @@
 
 		(t
 		 (setq y (cdr (cdr mouse))
-		       edges (window-edges)
+		       edges (window-edges start-event-window)
 		       top (nth 1 edges)
 		       bot (nth 3 edges))
 
@@ -572,10 +567,6 @@
       (error "Attempt to drag leftmost scrollbar")))
     (track-mouse
       (progn
-	;; enlarge-window only works on the selected window, so
-	;; we must select the window where the start event originated.
-	;; unwind-protect will restore the old selected window later.
-	(select-window start-event-window)
 	;; loop reading events and sampling the position of
 	;; the mouse.
 	(while (not done)
@@ -611,9 +602,9 @@
 			;; If the scroll bar is on the window's left,
 			;; adjust the window on the left.
 			(if (eq which-side 'right)
-			    (selected-window)
+			    start-event-window
 			  (mouse-drag-vertical-line-rightward-window
-			   (selected-window)))))
+			   start-event-window))))
 		   (setq x (- (car (cdr mouse))
 			      (if (eq which-side 'right) 0 2))
 			 edges (window-edges window)