diff options
| author | Richard M. Stallman | 1994-05-22 20:56:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-22 20:56:11 +0000 |
| commit | 85d6b80b26ff80a3df4d0a44d282f73872f5c16e (patch) | |
| tree | 4589a39f2fd3c06fcd67dbf9373443b1a0c72d89 | |
| parent | ed627e08bdc16618e83941a1e3526434319fccb9 (diff) | |
| download | emacs-85d6b80b26ff80a3df4d0a44d282f73872f5c16e.tar.gz emacs-85d6b80b26ff80a3df4d0a44d282f73872f5c16e.zip | |
(mouse-split-window-vertically): Treat scroll bar events just like others.
| -rw-r--r-- | lisp/mouse.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 2cceabab2f7..052d6ec01ba 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -89,10 +89,7 @@ This command must be bound to a mouse click." | |||
| 89 | (mouse-minibuffer-check click) | 89 | (mouse-minibuffer-check click) |
| 90 | (let ((start (event-start click))) | 90 | (let ((start (event-start click))) |
| 91 | (select-window (posn-window start)) | 91 | (select-window (posn-window start)) |
| 92 | (let ((new-height (if (eq (posn-point start) 'vertical-scroll-bar) | 92 | (let ((new-height (1+ (cdr (posn-col-row (event-end click))))) |
| 93 | (scroll-bar-scale (posn-col-row start) | ||
| 94 | (1- (window-height))) | ||
| 95 | (1+ (cdr (posn-col-row (event-end click)))))) | ||
| 96 | (first-line window-min-height) | 93 | (first-line window-min-height) |
| 97 | (last-line (- (window-height) window-min-height))) | 94 | (last-line (- (window-height) window-min-height))) |
| 98 | (if (< last-line first-line) | 95 | (if (< last-line first-line) |