aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-05-22 20:56:11 +0000
committerRichard M. Stallman1994-05-22 20:56:11 +0000
commit85d6b80b26ff80a3df4d0a44d282f73872f5c16e (patch)
tree4589a39f2fd3c06fcd67dbf9373443b1a0c72d89
parented627e08bdc16618e83941a1e3526434319fccb9 (diff)
downloademacs-85d6b80b26ff80a3df4d0a44d282f73872f5c16e.tar.gz
emacs-85d6b80b26ff80a3df4d0a44d282f73872f5c16e.zip
(mouse-split-window-vertically): Treat scroll bar events just like others.
-rw-r--r--lisp/mouse.el5
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)