From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 2 Feb 1998 05:42:02 +0000 (+0000)
Subject: (mldrag-drag-vertical-line): Fix criterion
X-Git-Tag: emacs-20.3~2255
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e5d67df40ad59566d91eaadf15b3f2821330c04;p=emacs.git

(mldrag-drag-vertical-line): Fix criterion
for the error for trying to move a scroll bar at the frame edge.
---

diff --git a/lisp/mldrag.el b/lisp/mldrag.el
index 0002db4712f..6e1d3d726df 100644
--- a/lisp/mldrag.el
+++ b/lisp/mldrag.el
@@ -164,11 +164,12 @@ right will make the clicked-on window thinner or wider."
 	 event mouse x left right edges wconfig growth)
     (if (one-window-p t)
 	(error "Attempt to resize sole ordinary window"))
-    (if (if scroll-bar-left
-	    (= (nth 2 (window-edges start-event-window))
-	       (frame-width start-event-frame))
-	  (= (nth 0 (window-edges start-event-window)) 0))
-	(error "Attempt to drag rightmost scrollbar"))
+    (if scroll-bar-left
+	(when (= (nth 0 (window-edges start-event-window)) 0)
+	  (error "Attempt to drag leftmost scrollbar"))
+      (when (>= (nth 2 (window-edges start-event-window))
+		(frame-width start-event-frame))
+	(error "Attempt to drag rightmost scrollbar")))
     (unwind-protect
 	(track-mouse
 	  (progn