mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-12 00:50:43 -08:00
Code Issues Projects Releases Wiki Activity

Fix precision scrolling down for multi-line display strings

Browse source 
* lisp/pixel-scroll.el
(pixel-scroll-precision-scroll-down-page): Make sure Y delta
is appropriate before deciding on next-pos.
This commit is contained in:
Po Lu 2021-12-23 21:26:59 +08:00
parent 902f343c18
commit 03dc54ba7f
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/pixel-scroll.el
View file

@ -461,6 +461,11 @@ the height of the current window."
(when (zerop (vertical-motion (1+ scroll-margin))) (when (zerop (vertical-motion (1+ scroll-margin)))
(set-window-start nil desired-start) (set-window-start nil desired-start)
(signal 'end-of-buffer nil)) (signal 'end-of-buffer nil))
(while (when-let ((posn (posn-at-point)))
(< (cdr (posn-x-y posn)) delta))
(when (zerop (vertical-motion 1))
(set-window-start nil desired-start)
(signal 'end-of-buffer nil)))
(point))) (point)))
(scroll-preserve-screen-position nil) (scroll-preserve-screen-position nil)
(auto-window-vscroll nil)) (auto-window-vscroll nil))