Mercurial > emacs
comparison lisp/mldrag.el @ 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 | 31341a6aaf95 |
| children |
comparison
equal
deleted
inserted
replaced
| 20818:732ffd28a863 | 20819:735a0243ce6f |
|---|---|
| 162 (start-nwindows (count-windows t)) | 162 (start-nwindows (count-windows t)) |
| 163 (old-selected-window (selected-window)) | 163 (old-selected-window (selected-window)) |
| 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 |
| 175 ;; enlarge-window only works on the selected window, so | 176 ;; enlarge-window only works on the selected window, so |
| 176 ;; we must select the window where the start event originated. | 177 ;; we must select the window where the start event originated. |