From ef2c386829418a2c279ddf0ed217ee725bebed2f Mon Sep 17 00:00:00 2001 From: Po Lu Date: Fri, 3 Dec 2021 08:59:24 +0800 Subject: [PATCH] * lisp/pixel-scroll.el (pixel-scroll-start-momentum): Fix algorithm. --- lisp/pixel-scroll.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.2