Commit a8626b7e authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix horizontal scrolling in non-selected windows.

 lisp/scroll-bar.el (scroll-bar-horizontal-drag-1)
 (scroll-bar-toolkit-horizontal-scroll): When determining the
 paragraph direction, use the buffer of the window designated in
 the event.
parent 39125b22
2014-08-18 Eli Zaretskii <eliz@gnu.org>
* scroll-bar.el (scroll-bar-horizontal-drag-1)
(scroll-bar-toolkit-horizontal-scroll): When determining the
paragraph direction, use the buffer of the window designated in
the event.
2014-08-16 Andreas Schwab <schwab@linux-m68k.org>
 
* vc/diff-mode.el (diff-fixup-modifs): Handle empty line in
......
......@@ -327,7 +327,8 @@ If you click outside the slider, the window scrolls to bring the slider there."
(window (nth 0 start-position))
(portion-whole (nth 2 start-position))
(unit (frame-char-width (window-frame window))))
(if (eq (current-bidi-paragraph-direction) 'left-to-right)
(if (eq (current-bidi-paragraph-direction (window-buffer window))
'left-to-right)
(set-window-hscroll
window (/ (1- (+ (car portion-whole) unit)) unit))
(set-window-hscroll
......@@ -454,9 +455,11 @@ EVENT should be a scroll bar click."
(let* ((end-position (event-end event))
(window (nth 0 end-position))
(part (nth 4 end-position))
(bidi-factor (if (eq (current-bidi-paragraph-direction) 'left-to-right)
1
-1))
(bidi-factor
(if (eq (current-bidi-paragraph-direction (window-buffer window))
'left-to-right)
1
-1))
before-scroll)
(cond
((eq part 'end-scroll))
......
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