From a4ff841154632da36ccb1bd01ea4e509465a692b Mon Sep 17 00:00:00 2001 From: Po Lu Date: Thu, 2 Dec 2021 09:56:52 +0800 Subject: [PATCH] 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. --- lisp/pixel-scroll.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.39.2