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

[Po Lu]

branch: master
commit ef2c386829418a2c279ddf0ed217ee725bebed2f
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    * 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 a45a4d4..00d9bf6 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))