From: Po Lu <luangruo@yahoo.com>
Date: Wed, 8 Dec 2021 10:36:18 +0000 (+0800)
Subject: Clear scroll interpolation when interpolated scroll completes
X-Git-Tag: emacs-29.0.90~3608^2~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f10d4b31d6d9cc370597a32da4a88ac2d63e7bab;p=emacs.git

Clear scroll interpolation when interpolated scroll completes

* lisp/pixel-scroll.el (pixel-scroll-precision-interpolate): Set
saved interpolation to nil upon completion.
---

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index b322bf9a53d..94c14d50dca 100644
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -550,7 +550,8 @@ animation."
         (rem (window-parameter nil 'interpolated-scroll-remainder))
         (time (window-parameter nil 'interpolated-scroll-remainder-time)))
     (when (and rem time
-               (< (- (float-time) time) 1.0))
+               (< (- (float-time) time) 1.0)
+               (eq (< delta 0) (< rem 0)))
       (setq delta (+ delta rem)))
     (while-no-input
       (unwind-protect
@@ -568,11 +569,18 @@ animation."
                (ceiling (* (* delta factor)
                            (/ between-scroll total-time)))))
             (setq last-time (float-time)))
-        (when (< percentage 1)
-          (set-window-parameter nil 'interpolated-scroll-remainder
-                                (* delta (- 1 percentage)))
-          (set-window-parameter nil 'interpolated-scroll-remainder-time
-                                (float-time)))))))
+        (if (< percentage 1)
+            (progn
+              (set-window-parameter nil 'interpolated-scroll-remainder
+                                    (* delta (- 1 percentage)))
+              (set-window-parameter nil 'interpolated-scroll-remainder-time
+                                    (float-time)))
+          (set-window-parameter nil
+                                'interpolated-scroll-remainder
+                                nil)
+          (set-window-parameter nil
+                                'interpolated-scroll-remainder-time
+                                nil))))))
 
 (defun pixel-scroll-precision-scroll-up (delta)
   "Scroll the current window up by DELTA pixels."