mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
window start, to ensure scroll bar position is updated.
This commit is contained in:
Karl Heuer 1996-05-21 14:40:27 +00:00
parent e2504204dc
commit 9c005c6533
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/scroll-bar.el
View file

@ -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)