diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-05-21 14:40:27 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-05-21 14:40:27 +0000 |
| commit | 816d81fd7b4d0865d056a242888d49c6a75ceed0 (patch) | |
| tree | 2f50901d9cfc6ede0806851505dfde4732be73c4 | |
| parent | d96797e6c58265120cdc005ba93b74c0e0d33387 (diff) | |
| download | emacs-816d81fd7b4d0865d056a242888d49c6a75ceed0.tar.gz | |
(scroll-bar-maybe-set-window-start): Always set
window start, to ensure scroll bar position is updated.
| -rw-r--r-- | lisp/scroll-bar.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 98b90856574..ec0f7164943 100644 --- 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) |