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

1 files changed, 2 insertions, 1 deletions

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))