Re: Changes in frame/window code

[martin rudalics]

>> Do you mean that when you click on the slider the value of
>> suspend_auto_hscroll is reset?
>
> No, I mean the slider jumps back to the left edge, whereas it started
> at the right edge (which is correct for R2L lines).

The following pretty crude version of `scroll-bar-horizontal-drag-1' fixes this
here.

(defun scroll-bar-horizontal-drag-1 (event)
  (let* ((start-position (event-start event))
         (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)
        (set-window-hscroll
         window (/ (1- (+ (car portion-whole) unit)) unit))
      (set-window-hscroll
       window (- (window-text-width) (/ (1- (+ (car portion-whole) unit)) 
unit))))))

martin