From: Po Lu <luangruo@yahoo.com>
Date: Thu, 23 Dec 2021 11:00:30 +0000 (+0800)
Subject: Set start to desired start when pixel scrolling to end of buffer
X-Git-Tag: emacs-29.0.90~3488
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=902f343c18e1894cd5a0e702151fa457651fe0b1;p=emacs.git

Set start to desired start when pixel scrolling to end of buffer

* lisp/pixel-scroll.el
(pixel-scroll-precision-scroll-down-page): Set start to desired
start when point cannot be moved further down.
---

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index 4aae166f2e0..223bc7fbc47 100644
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -459,6 +459,7 @@ the height of the current window."
          (next-pos (save-excursion
                      (goto-char desired-start)
                      (when (zerop (vertical-motion (1+ scroll-margin)))
+                       (set-window-start nil desired-start)
                        (signal 'end-of-buffer nil))
                      (point)))
          (scroll-preserve-screen-position nil)