changeset 20819:735a0243ce6f

(mldrag-drag-vertical-line): Fix criterion for the error for trying to move a scroll bar at the frame edge.
author Richard M. Stallman <rms@gnu.org>
date Mon, 02 Feb 1998 05:42:02 +0000
parents 732ffd28a863
children 0507d774e769
files lisp/mldrag.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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