(input-method-exit-on-first-char):

[gnu-emacs] / lisp / mldrag.el

diff --git a/lisp/mldrag.el b/lisp/mldrag.el
index 3c37f35da13ac865f3a425eb4b82c3a1fc988797..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
@@ -220,7 +221,6 @@ right will make the clicked-on window thinner or wider."
                                      (- left x)
                                    (- x right -1))
                           wconfig (current-window-configuration))
-                    (message "%s" growth)
                     (enlarge-window growth t)
                     ;; if this window's growth caused another
                     ;; window to be deleted because it was too