mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-05-22 20:56:11 +00:00
parent ed627e08bd
commit 85d6b80b26
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mouse.el
View file

@ -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)