From 9e5d67df40ad59566d91eaadf15b3f2821330c04 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 2 Feb 1998 05:42:02 +0000 Subject: [PATCH] (mldrag-drag-vertical-line): Fix criterion for the error for trying to move a scroll bar at the frame edge. --- lisp/mldrag.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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 -- 2.39.5