(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 0002db4712ff1d9bdcc27369bfc07b2e10368bd7..6e1d3d726df0de1cc6cb0108c64e8d1ae817ed6d 100644 (file)
--- 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