# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 913260385 0
# Node ID cb2244476b40fedc7d8c9e16135e82b651dc7c90
# Parent  e9fe8ed71303a461449e11e934143e837242d6d3
(mouse-drag-vertical-line):
If WHICH-SIDE is not `right', then scroll bars are on the left.

diff -r e9fe8ed71303 -r cb2244476b40 lisp/mouse.el
--- a/lisp/mouse.el	Thu Dec 10 03:25:33 1998 +0000
+++ b/lisp/mouse.el	Thu Dec 10 03:26:25 1998 +0000
@@ -317,12 +317,12 @@
 	      'right)))
     (if (one-window-p t)
 	(error "Attempt to resize sole ordinary window"))
-    (if (eq which-side 'left)
-	(if (= (nth 0 (window-edges start-event-window)) 0)
-	    (error "Attempt to drag leftmost scrollbar"))
-      (if (= (nth 2 (window-edges start-event-window))
-	     (frame-width start-event-frame))
-	  (error "Attempt to drag rightmost scrollbar")))
+    (if (eq which-side 'right)
+	(if (= (nth 2 (window-edges start-event-window))
+	       (frame-width start-event-frame))
+	    (error "Attempt to drag rightmost scrollbar"))
+      (if (= (nth 0 (window-edges start-event-window)) 0)
+	  (error "Attempt to drag leftmost scrollbar")))
     (track-mouse
       (progn
 	;; enlarge-window only works on the selected window, so
@@ -363,10 +363,10 @@
 		 (save-selected-window
 		   ;; If the scroll bar is on the window's left,
 		   ;; adjust the window on the left.
-		   (if (eq which-side 'left)
-		       (select-window (previous-window)))
+		   (unless (eq which-side 'right)
+		     (select-window (previous-window)))
 		   (setq x (- (car (cdr mouse))
-			      (if (eq which-side 'left) 2 0))
+			      (if (eq which-side 'right) 0 2))
 			 edges (window-edges)
 			 left (nth 0 edges)
 			 right (nth 2 edges))