procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix mouse dragging of vertical dividers with scroll bars on left (Bug#23690)

Browse source 
* lisp/mouse.el (mouse-drag-line): With scroll bars on the left
adjust trailing edge of window on the left when dragging the
vertical divider of the mode line.  (Bug#23690)
This commit is contained in:
Martin Rudalics 2016-06-05 11:50:47 +02:00
parent a5d05f4470
commit 0b33a23ffe
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/mouse.el
View file

@ -406,7 +406,15 @@ must be one of the symbols `header', `mode', or `vertical'."
(or (not resize-mini-windows) (or (not resize-mini-windows)
(eq minibuffer-window (eq minibuffer-window
(active-minibuffer-window))))))) (active-minibuffer-window)))))))
(setq draggable nil)))) (setq draggable nil)))
((eq line 'vertical)
(let ((divider-width (frame-right-divider-width frame)))
(when (and (or (not (numberp divider-width))
(zerop divider-width))
(eq (cdr (assq 'vertical-scroll-bars
(frame-parameters frame)))
'left))
(setq window (window-in-direction 'left window t))))))
(let* ((exitfun nil) (let* ((exitfun nil)
(move (move