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 | 9c005c6533576cd20c393cf7ea6e9eae11ef15ba (patch) | |
| tree | 365dc37381b95bb563bd402c8c06586ccf6c99f5 /lisp/scroll-bar.el | |
| parent | e2504204dc392fc9f87b788fdcc5d4043a644f2d (diff) | |
| download | emacs-9c005c6533576cd20c393cf7ea6e9eae11ef15ba.tar.gz | |
(scroll-bar-maybe-set-window-start): Always set
window start, to ensure scroll bar position is updated.
Diffstat (limited to 'lisp/scroll-bar.el')
| -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) |