[Emacs-diffs] emacs-25 0b33a23: Fix mouse dragging of vertical dividers with scroll bars on left (Bug#23690)

[Martin Rudalics]

branch: emacs-25
commit 0b33a23ffecdb4ca87806c9fc7568d17c5ca7e98
Author: Martin Rudalics <address@hidden>
Commit: Martin Rudalics <address@hidden>

    Fix mouse dragging of vertical dividers with scroll bars on left (Bug#23690)
    
    * 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)
---
 lisp/mouse.el |   10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lisp/mouse.el b/lisp/mouse.el
index fa355ff..592338a 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -406,7 +406,15 @@ must be one of the symbols `header', `mode', or 
`vertical'."
                           (or (not resize-mini-windows)
                               (eq 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)
            (move