Commit 85d6b80b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mouse-split-window-vertically): Treat scroll bar events just like others.

parent ed627e08
......@@ -89,10 +89,7 @@ This command must be bound to a mouse click."
(mouse-minibuffer-check click)
(let ((start (event-start click)))
(select-window (posn-window start))
(let ((new-height (if (eq (posn-point start) 'vertical-scroll-bar)
(scroll-bar-scale (posn-col-row start)
(1- (window-height)))
(1+ (cdr (posn-col-row (event-end click))))))
(let ((new-height (1+ (cdr (posn-col-row (event-end click)))))
(first-line window-min-height)
(last-line (- (window-height) window-min-height)))
(if (< last-line first-line)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment