diff options
| author | Yuan Fu <casouri@gmail.com> | 2022-06-14 15:59:46 -0700 |
|---|---|---|
| committer | Yuan Fu <casouri@gmail.com> | 2022-06-14 15:59:46 -0700 |
| commit | 98bfb240818bae14cd87a1ffeb8fae7cb7846e05 (patch) | |
| tree | 16e8ab06875ed54e110cf98ccdbd7e78f15905c6 /lisp/pixel-scroll.el | |
| parent | 184d212042ffa5a4f02c92085d9b6e8346d66e99 (diff) | |
| parent | 787c4ad8b0776280305a220d6669c956d9ed8a5d (diff) | |
| download | emacs-98bfb240818bae14cd87a1ffeb8fae7cb7846e05.tar.gz emacs-98bfb240818bae14cd87a1ffeb8fae7cb7846e05.tar.bz2 emacs-98bfb240818bae14cd87a1ffeb8fae7cb7846e05.zip | |
Merge remote-tracking branch 'savannah/master' into feature/tree-sitter
Diffstat (limited to 'lisp/pixel-scroll.el')
| -rw-r--r-- | lisp/pixel-scroll.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index b0fe2f56c03..fc7e680c262 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el @@ -547,7 +547,7 @@ the height of the current window." (beginning-of-visual-line) (point))) t) - (set-window-vscroll nil desired-vscroll t))) + (set-window-vscroll nil desired-vscroll t t))) (defun pixel-scroll-precision-scroll-down (delta) "Scroll the current window down by DELTA pixels." @@ -586,7 +586,7 @@ the height of the current window." (goto-char up-point))) (let ((current-vscroll (window-vscroll nil t))) (setq delta (- delta current-vscroll)) - (set-window-vscroll nil 0 t) + (set-window-vscroll nil 0 t t) (when (> delta 0) (let* ((start (window-start)) (dims (window-text-pixel-size nil (cons start (- delta)) @@ -602,7 +602,7 @@ the height of the current window." (signal 'beginning-of-buffer nil)) (setq delta (- delta height)))) (when (< delta 0) - (set-window-vscroll nil (- delta) t))))) + (set-window-vscroll nil (- delta) t t))))) (defun pixel-scroll-precision-interpolate (delta &optional old-window) "Interpolate a scroll of DELTA pixels. |