diff lisp/mldrag.el @ 20819:735a0243ce6f

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

--- a/lisp/mldrag.el	Mon Feb 02 01:21:18 1998 +0000
+++ b/lisp/mldrag.el	Mon Feb 02 05:42:02 1998 +0000
@@ -164,11 +164,12 @@
 	 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