Mercurial > emacs
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