Mercurial > emacs
changeset 23854:cb2244476b40
(mouse-drag-vertical-line):
If WHICH-SIDE is not `right', then scroll bars are on the left.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 10 Dec 1998 03:26:25 +0000 |
| parents | e9fe8ed71303 |
| children | 5683a1280521 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Thu Dec 10 03:25:33 1998 +0000 +++ b/lisp/mouse.el Thu Dec 10 03:26:25 1998 +0000 @@ -317,12 +317,12 @@ 'right))) (if (one-window-p t) (error "Attempt to resize sole ordinary window")) - (if (eq which-side 'left) - (if (= (nth 0 (window-edges start-event-window)) 0) - (error "Attempt to drag leftmost scrollbar")) - (if (= (nth 2 (window-edges start-event-window)) - (frame-width start-event-frame)) - (error "Attempt to drag rightmost scrollbar"))) + (if (eq which-side 'right) + (if (= (nth 2 (window-edges start-event-window)) + (frame-width start-event-frame)) + (error "Attempt to drag rightmost scrollbar")) + (if (= (nth 0 (window-edges start-event-window)) 0) + (error "Attempt to drag leftmost scrollbar"))) (track-mouse (progn ;; enlarge-window only works on the selected window, so @@ -363,10 +363,10 @@ (save-selected-window ;; If the scroll bar is on the window's left, ;; adjust the window on the left. - (if (eq which-side 'left) - (select-window (previous-window))) + (unless (eq which-side 'right) + (select-window (previous-window))) (setq x (- (car (cdr mouse)) - (if (eq which-side 'left) 2 0)) + (if (eq which-side 'right) 0 2)) edges (window-edges) left (nth 0 edges) right (nth 2 edges))