diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-02-02 05:42:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-02-02 05:42:02 +0000 |
| commit | 82a344c9db9031d1bedf6b4f25f57563769323c6 (patch) | |
| tree | 240bc79f29b2b5f54df8aa33c96b4877458ea7ae /lisp/mldrag.el | |
| parent | 617572b92bc0abb70d5d97ac9c04dbd1f0510112 (diff) | |
| download | emacs-82a344c9db9031d1bedf6b4f25f57563769323c6.tar.gz | |
(mldrag-drag-vertical-line): Fix criterion
for the error for trying to move a scroll bar at the frame edge.
Diffstat (limited to 'lisp/mldrag.el')
| -rw-r--r-- | lisp/mldrag.el | 11 |
1 files 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 |