From: Po Lu <luangruo@yahoo.com>
Date: Sat, 4 Dec 2021 01:43:44 +0000 (+0800)
Subject: Make last change work for deltas that are multiples of max-height
X-Git-Tag: emacs-29.0.90~3619^2~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be1359884f68a3c8f8041be5579e6c5268d42d9a;p=emacs.git

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

* 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.
---

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index 740aaf93c79..207d34811aa 100644
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -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)))