From: Po Lu <luangruo@yahoo.com>
Date: Fri, 3 Dec 2021 00:59:24 +0000 (+0800)
Subject: * lisp/pixel-scroll.el (pixel-scroll-start-momentum): Fix algorithm.
X-Git-Tag: emacs-29.0.90~3624^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef2c386829418a2c279ddf0ed217ee725bebed2f;p=emacs.git

* lisp/pixel-scroll.el (pixel-scroll-start-momentum): Fix algorithm.
---

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index a45a4d41c33..00d9bf684ee 100644
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -549,7 +549,8 @@ It is a vector of the form [ VELOCITY TIME ]."
           (unwind-protect (progn
                             (aset state 0
                                   (/ (pixel-scroll-calculate-velocity state) 2))
-                            (let ((velocity (aref state 0)))
+                            (let ((velocity (* (aref state 0)
+                                               pixel-scroll-precision-momentum-tick)))
                               (if (> velocity 0)
                                   (while (> velocity 1)
                                     (pixel-scroll-precision-scroll-up (round velocity))