diff options
| -rw-r--r-- | lisp/pixel-scroll.el | 3 |
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 ]." | |||
| 549 | (unwind-protect (progn | 549 | (unwind-protect (progn |
| 550 | (aset state 0 | 550 | (aset state 0 |
| 551 | (/ (pixel-scroll-calculate-velocity state) 2)) | 551 | (/ (pixel-scroll-calculate-velocity state) 2)) |
| 552 | (let ((velocity (aref state 0))) | 552 | (let ((velocity (* (aref state 0) |
| 553 | pixel-scroll-precision-momentum-tick))) | ||
| 553 | (if (> velocity 0) | 554 | (if (> velocity 0) |
| 554 | (while (> velocity 1) | 555 | (while (> velocity 1) |
| 555 | (pixel-scroll-precision-scroll-up (round velocity)) | 556 | (pixel-scroll-precision-scroll-up (round velocity)) |