[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 51a98a92e9: Use CUA functions to scroll pages with pixel-scroll-s
From: |
Po Lu |
Subject: |
master 51a98a92e9: Use CUA functions to scroll pages with pixel-scroll-scroll-mode |
Date: |
Wed, 6 Apr 2022 05:30:50 -0400 (EDT) |
branch: master
commit 51a98a92e9f4c821ff838d823ce42ca12a4de4ca
Author: Markus Kopp <markus.kopp@student.uibk.ac.at>
Commit: Po Lu <luangruo@yahoo.com>
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)
---
lisp/pixel-scroll.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index bfe48ef1f9..688a054896 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 51a98a92e9: Use CUA functions to scroll pages with pixel-scroll-scroll-mode,
Po Lu <=