From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 10 Dec 1998 03:26:25 +0000 (+0000)
Subject: (mouse-drag-vertical-line):
X-Git-Tag: emacs-20.4~1095
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e363e7e63fa8c7d95b4915e7d79a3eb7a4fe434;p=emacs.git

(mouse-drag-vertical-line):
If WHICH-SIDE is not `right', then scroll bars are on the left.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 781738253d7..47ede180693 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -317,12 +317,12 @@ This command must be bound to a mouse click."
 	      '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 @@ This command must be bound to a mouse click."
 		 (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))