diff options
| author | Markus Kopp <markus.kopp@student.uibk.ac.at> | 2022-04-06 17:27:19 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-04-06 17:30:20 +0800 |
| commit | 51a98a92e9f4c821ff838d823ce42ca12a4de4ca (patch) | |
| tree | 2dbdedd70361995f07b1e11681349aa4be011c9c | |
| parent | f9da45df47270c1f58736e78bc4f6716e1828e40 (diff) | |
| download | emacs-51a98a92e9f4c821ff838d823ce42ca12a4de4ca.tar.gz | |
Use CUA functions to scroll pages with pixel-scroll-scroll-mode
* lisp/pixel-scroll.el (pixel-scroll-interpolate-down)
(pixel-scroll-interpolate-up): Use `cua-scroll-up' and
`cua-scroll-down' to scroll if
`pixel-scroll-precision-interpolate-page' is off. (bug#54696)
| -rw-r--r-- | lisp/pixel-scroll.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index bfe48ef1f90..688a054896b 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el @@ -90,6 +90,7 @@ (require 'mwheel) (require 'subr-x) (require 'ring) +(require 'cua-base) (defvar pixel-wait 0 "Idle time on each step of pixel scroll specified in second. @@ -803,14 +804,14 @@ It is a vector of the form [ VELOCITY TIME SIGN ]." (interactive) (if pixel-scroll-precision-interpolate-page (pixel-scroll-precision-interpolate (- (window-text-height nil t))) - (scroll-up))) + (cua-scroll-up))) (defun pixel-scroll-interpolate-up () "Interpolate a scroll upwards by one page." (interactive) (if pixel-scroll-precision-interpolate-page (pixel-scroll-precision-interpolate (window-text-height nil t)) - (scroll-down))) + (cua-scroll-down))) ;;;###autoload (define-minor-mode pixel-scroll-precision-mode |