diff options
| author | Richard M. Stallman | 1998-02-02 05:42:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-02-02 05:42:02 +0000 |
| commit | 9e5d67df40ad59566d91eaadf15b3f2821330c04 (patch) | |
| tree | 9827694b0917787ad444b231f64766159ae8c65b | |
| parent | 74dfd056e487f4073f713a46cc89d4a7f39e8400 (diff) | |
| download | emacs-9e5d67df40ad59566d91eaadf15b3f2821330c04.tar.gz emacs-9e5d67df40ad59566d91eaadf15b3f2821330c04.zip | |
(mldrag-drag-vertical-line): Fix criterion
for the error for trying to move a scroll bar at the frame edge.
| -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." | |||
| 164 | event mouse x left right edges wconfig growth) | 164 | event mouse x left right edges wconfig growth) |
| 165 | (if (one-window-p t) | 165 | (if (one-window-p t) |
| 166 | (error "Attempt to resize sole ordinary window")) | 166 | (error "Attempt to resize sole ordinary window")) |
| 167 | (if (if scroll-bar-left | 167 | (if scroll-bar-left |
| 168 | (= (nth 2 (window-edges start-event-window)) | 168 | (when (= (nth 0 (window-edges start-event-window)) 0) |
| 169 | (frame-width start-event-frame)) | 169 | (error "Attempt to drag leftmost scrollbar")) |
| 170 | (= (nth 0 (window-edges start-event-window)) 0)) | 170 | (when (>= (nth 2 (window-edges start-event-window)) |
| 171 | (error "Attempt to drag rightmost scrollbar")) | 171 | (frame-width start-event-frame)) |
| 172 | (error "Attempt to drag rightmost scrollbar"))) | ||
| 172 | (unwind-protect | 173 | (unwind-protect |
| 173 | (track-mouse | 174 | (track-mouse |
| 174 | (progn | 175 | (progn |