procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Po Lu 2021-12-03 08:59:24 +08:00
parent f5f5297a92
commit ef2c386829
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/pixel-scroll.el
View file

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