Mercurial > emacs
diff lisp/scroll-bar.el @ 15264:0eb55cad57c6
(scroll-bar-maybe-set-window-start): Always set
window start, to ensure scroll bar position is updated.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 21 May 1996 14:40:27 +0000 |
parents | 681866822119 |
children | dedaafd841c0 |
line wrap: on
line diff
--- 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)