[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ef2c386: * lisp/pixel-scroll.el (pixel-scroll-start-momentum): Fi
From: |
Po Lu |
Subject: |
master ef2c386: * lisp/pixel-scroll.el (pixel-scroll-start-momentum): Fix algorithm. |
Date: |
Thu, 2 Dec 2021 19:59:53 -0500 (EST) |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ef2c386: * lisp/pixel-scroll.el (pixel-scroll-start-momentum): Fix algorithm.,
Po Lu <=