From: Po Lu <luangruo@yahoo.com>
Date: Thu, 2 Dec 2021 01:56:52 +0000 (+0800)
Subject: Fix precision scrolling when there is a scroll margin
X-Git-Tag: emacs-29.0.90~3629^2~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4ff841154632da36ccb1bd01ea4e509465a692b;p=emacs.git

Fix precision scrolling when there is a scroll margin

* lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down)
(pixel-scroll-precision-scroll-up): Take scroll margin into
accout.
---

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index 9cd2352e199..2d6531a2d17 100644
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -383,7 +383,7 @@ the height of the current window."
 	 (desired-vscroll (cdr (posn-object-x-y desired-pos)))
          (next-pos (save-excursion
                      (goto-char desired-start)
-                     (when (zerop (vertical-motion 1))
+                     (when (zerop (vertical-motion (1+ scroll-margin)))
                        (signal 'end-of-buffer nil))
                      (point))))
     (if (and (< (point) next-pos)
@@ -419,7 +419,7 @@ the height of the current window."
          (point (posn-point posn))
          (up-point (save-excursion
                      (goto-char point)
-                     (vertical-motion -1)
+                     (vertical-motion (- (1+ scroll-margin)))
                      (point))))
     (when (> (point) up-point)
       (when (let ((pos-visible (pos-visible-in-window-p up-point nil t)))