Mercurial > emacs
changeset 20686:988d8082f292
(mouse-drag-vertical-line): Properly determine which
side the scroll bar or vertical line is on.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 19 Jan 1998 23:11:18 +0000 |
| parents | 15a32cd96ea5 |
| children | cd31a4ab72de |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Mon Jan 19 21:33:26 1998 +0000 +++ b/lisp/mouse.el Mon Jan 19 23:11:18 1998 +0000 @@ -300,16 +300,16 @@ (interactive "e") ;; Give temporary modes such as isearch a chance to turn off. (run-hooks 'mouse-leave-buffer-hook) - (let ((done nil) - (echo-keystrokes 0) - (start-event-frame (window-frame (car (car (cdr start-event))))) - (start-event-window (car (car (cdr start-event)))) - (start-nwindows (count-windows t)) - (old-selected-window (selected-window)) - event mouse x left right edges wconfig growth - (which-side - (or (cdr (assq 'vertical-scroll-bars default-frame-alist)) - 'left))) + (let* ((done nil) + (echo-keystrokes 0) + (start-event-frame (window-frame (car (car (cdr start-event))))) + (start-event-window (car (car (cdr start-event)))) + (start-nwindows (count-windows t)) + (old-selected-window (selected-window)) + event mouse x left right edges wconfig growth + (which-side + (or (cdr (assq 'vertical-scroll-bars (frame-parameters start-event-frame))) + 'right))) (if (one-window-p t) (error "Attempt to resize sole ordinary window")) (if (eq which-side 'left)