diff options
| author | Richard M. Stallman | 1998-01-19 23:11:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-19 23:11:18 +0000 |
| commit | 5d6a85e05fe3c861f0f66f19ad391eeeb070acbd (patch) | |
| tree | eac319ee08f94cd2b536e81c63828a571a9d3ebb | |
| parent | 3fafe1d5d1651fd42ec3cb818d5846301e1438f7 (diff) | |
| download | emacs-5d6a85e05fe3c861f0f66f19ad391eeeb070acbd.tar.gz emacs-5d6a85e05fe3c861f0f66f19ad391eeeb070acbd.zip | |
(mouse-drag-vertical-line): Properly determine which
side the scroll bar or vertical line is on.
| -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." | |||
| 300 | (interactive "e") | 300 | (interactive "e") |
| 301 | ;; Give temporary modes such as isearch a chance to turn off. | 301 | ;; Give temporary modes such as isearch a chance to turn off. |
| 302 | (run-hooks 'mouse-leave-buffer-hook) | 302 | (run-hooks 'mouse-leave-buffer-hook) |
| 303 | (let ((done nil) | 303 | (let* ((done nil) |
| 304 | (echo-keystrokes 0) | 304 | (echo-keystrokes 0) |
| 305 | (start-event-frame (window-frame (car (car (cdr start-event))))) | 305 | (start-event-frame (window-frame (car (car (cdr start-event))))) |
| 306 | (start-event-window (car (car (cdr start-event)))) | 306 | (start-event-window (car (car (cdr start-event)))) |
| 307 | (start-nwindows (count-windows t)) | 307 | (start-nwindows (count-windows t)) |
| 308 | (old-selected-window (selected-window)) | 308 | (old-selected-window (selected-window)) |
| 309 | event mouse x left right edges wconfig growth | 309 | event mouse x left right edges wconfig growth |
| 310 | (which-side | 310 | (which-side |
| 311 | (or (cdr (assq 'vertical-scroll-bars default-frame-alist)) | 311 | (or (cdr (assq 'vertical-scroll-bars (frame-parameters start-event-frame))) |
| 312 | 'left))) | 312 | 'right))) |
| 313 | (if (one-window-p t) | 313 | (if (one-window-p t) |
| 314 | (error "Attempt to resize sole ordinary window")) | 314 | (error "Attempt to resize sole ordinary window")) |
| 315 | (if (eq which-side 'left) | 315 | (if (eq which-side 'left) |