(scroll-bar-maybe-set-window-start): Always set

window start, to ensure scroll bar position is updated.

diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 98b90856574dfdba841bfb7b224e36eb169b9fe0..ec0f71649435034e7173160cd713f5061b34647c 100644 (file)
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -144,7 +144,9 @@ EVENT should be a scroll bar click or drag event."
                                (1+ portion-start)))
       (if (or (> current-start next-portion-start)
              (< current-start portion-start))
-         (set-window-start window portion-start)))))
+         (set-window-start window portion-start)
+       ;; Always set window start, to ensure scroll bar position is updated.
+       (set-window-start window current-start)))))
 
 ;; Scroll the window to the proper position for EVENT.
 (defun scroll-bar-drag-1 (event)