# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 832689627 0
# Node ID 0eb55cad57c6c1e32091a2fb51620ae99703e363
# Parent  0d7899c372edc259e8e594ec67b071b347aa0c3b
(scroll-bar-maybe-set-window-start): Always set
window start, to ensure scroll bar position is updated.

diff -r 0d7899c372ed -r 0eb55cad57c6 lisp/scroll-bar.el
--- a/lisp/scroll-bar.el	Tue May 21 14:31:40 1996 +0000
+++ b/lisp/scroll-bar.el	Tue May 21 14:40:27 1996 +0000
@@ -144,7 +144,9 @@
 				(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)