diff options
| author | Karl Heuer | 1996-05-21 14:40:27 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-05-21 14:40:27 +0000 |
| commit | 9c005c6533576cd20c393cf7ea6e9eae11ef15ba (patch) | |
| tree | 365dc37381b95bb563bd402c8c06586ccf6c99f5 | |
| parent | e2504204dc392fc9f87b788fdcc5d4043a644f2d (diff) | |
| download | emacs-9c005c6533576cd20c393cf7ea6e9eae11ef15ba.tar.gz emacs-9c005c6533576cd20c393cf7ea6e9eae11ef15ba.zip | |
(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." | |||
| 144 | (1+ portion-start))) | 144 | (1+ portion-start))) |
| 145 | (if (or (> current-start next-portion-start) | 145 | (if (or (> current-start next-portion-start) |
| 146 | (< current-start portion-start)) | 146 | (< current-start portion-start)) |
| 147 | (set-window-start window portion-start))))) | 147 | (set-window-start window portion-start) |
| 148 | ;; Always set window start, to ensure scroll bar position is updated. | ||
| 149 | (set-window-start window current-start))))) | ||
| 148 | 150 | ||
| 149 | ;; Scroll the window to the proper position for EVENT. | 151 | ;; Scroll the window to the proper position for EVENT. |
| 150 | (defun scroll-bar-drag-1 (event) | 152 | (defun scroll-bar-drag-1 (event) |