From: Richard M. Stallman Date: Mon, 2 Feb 1998 05:42:02 +0000 (+0000) Subject: (mldrag-drag-vertical-line): Fix criterion X-Git-Tag: emacs-20.3~2255 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e5d67df40ad59566d91eaadf15b3f2821330c04;p=emacs.git (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 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