diff options
| -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) |