procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make last change work for deltas that are multiples of max-height

Browse source 
* lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down-page)
(pixel-scroll-precision-scroll-up-page): Use `max-height' that
is slightly less than the text height of the window.
This commit is contained in:
Po Lu 2021-12-04 09:43:44 +08:00
parent 1450fa16ed
commit be1359884f
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/pixel-scroll.el
View file

@ -439,7 +439,8 @@ the height of the current window."
(defun pixel-scroll-precision-scroll-down (delta)
"Scroll the current window down by DELTA pixels."
(let ((max-height (window-text-height nil t)))
(let ((max-height (- (window-text-height nil t)
(frame-char-height))))
(while (> delta max-height)
(pixel-scroll-precision-scroll-down-page max-height)
(setq delta (- delta max-height)))
@ -499,7 +500,8 @@ the height of the current window."
(defun pixel-scroll-precision-scroll-up (delta)
"Scroll the current window up by DELTA pixels."
(let ((max-height (window-text-height nil t)))
(let ((max-height (- (window-text-height nil t)
(frame-char-height))))
(while (> delta max-height)
(pixel-scroll-precision-scroll-up-page max-height)
(setq delta (- delta max-height)))