diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-01-19 23:11:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-01-19 23:11:18 +0000 |
| commit | 5d6a85e05fe3c861f0f66f19ad391eeeb070acbd (patch) | |
| tree | eac319ee08f94cd2b536e81c63828a571a9d3ebb /lisp/mouse.el | |
| parent | 3fafe1d5d1651fd42ec3cb818d5846301e1438f7 (diff) | |
| download | emacs-5d6a85e05fe3c861f0f66f19ad391eeeb070acbd.tar.gz | |
(mouse-drag-vertical-line): Properly determine which
side the scroll bar or vertical line is on.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 6f4a60a86ec..1b053404c3c 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -300,16 +300,16 @@ This command must be bound to a mouse click." (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) |