From b6c725ba98ad0f066daf1e5f78d09fd755226dbe Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 11 Sep 2023 02:06:23 +0200 Subject: [PATCH] New defgroup pixel-scroll-precision * lisp/pixel-scroll.el (pixel-scroll-precision): New defgroup. (pixel-scroll-precision-use-momentum) (pixel-scroll-precision-momentum-tick) (pixel-scroll-precision-momentum-seconds) (pixel-scroll-precision-momentum-min-velocity) (pixel-scroll-precision-initial-velocity-factor) (pixel-scroll-precision-large-scroll-height) (pixel-scroll-precision-interpolation-total-time) (pixel-scroll-precision-interpolation-factor) (pixel-scroll-precision-interpolation-between-scroll) (pixel-scroll-precision-interpolate-page) (pixel-scroll-precision-interpolate-mice): Move to above new defgroup. (Bug#57970) * lisp/mouse.el (mouse): Remove stale comment. --- lisp/mouse.el | 2 +- lisp/pixel-scroll.el | 16 +++++----------- 2 files changed, 6 insertions(+), 12 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 66308ce6839..6d916e8223a 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -35,7 +35,7 @@ (put 'track-mouse 'lisp-indent-function 0) (defgroup mouse nil - "Input from the mouse." ;; "Mouse support." + "Input from the mouse." :group 'environment :group 'editing) diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index 6ee37d03e87..224a2b5f1e0 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el @@ -148,67 +148,62 @@ is always with pixel resolution.") "" #'pixel-scroll-interpolate-down "" #'pixel-scroll-interpolate-up) +(defgroup pixel-scroll-precision nil + "Precise pixel scrolling." + :group 'mouse + :version "30.1") + (defcustom pixel-scroll-precision-use-momentum nil "If non-nil, continue to scroll the display after wheel movement stops. This is only effective if supported by your mouse or touchpad." - :group 'mouse :type 'boolean :version "29.1") (defcustom pixel-scroll-precision-momentum-tick 0.01 "Number of seconds between each momentum scroll." - :group 'mouse :type 'float :version "29.1") (defcustom pixel-scroll-precision-momentum-seconds 1.75 "The maximum duration in seconds of momentum scrolling." - :group 'mouse :type 'float :version "29.1") (defcustom pixel-scroll-precision-momentum-min-velocity 10.0 "The minimum scrolled pixels per second before momentum scrolling starts." - :group 'mouse :type 'float :version "29.1") (defcustom pixel-scroll-precision-initial-velocity-factor (/ 0.0335 4) "Factor applied to the initial velocity before momentum scrolling begins." - :group 'mouse :type 'float :version "29.1") (defcustom pixel-scroll-precision-large-scroll-height nil "Pixels that must be scrolled before an animation is performed. Nil means to not interpolate such scrolls." - :group 'mouse :type '(choice (const :tag "Do not interpolate large scrolls" nil) number) :version "29.1") (defcustom pixel-scroll-precision-interpolation-total-time 0.1 "The total time in seconds to spend interpolating a large scroll." - :group 'mouse :type 'float :version "29.1") (defcustom pixel-scroll-precision-interpolation-factor 2.0 "A factor to apply to the distance of an interpolated scroll." - :group 'mouse :type 'float :version "29.1") (defcustom pixel-scroll-precision-interpolation-between-scroll 0.001 "The number of seconds between each step of an interpolated scroll." - :group 'mouse :type 'float :version "29.1") (defcustom pixel-scroll-precision-interpolate-page nil "Whether or not to interpolate scrolling via the Page Down and Page Up keys. This is only effective when `pixel-scroll-precision-mode' is enabled." - :group 'scrolling :type 'boolean :version "29.1") @@ -216,7 +211,6 @@ This is only effective when `pixel-scroll-precision-mode' is enabled." "Whether or not to interpolate scrolling from a mouse. If non-nil, scrolling from the mouse wheel of an actual mouse (as opposed to a touchpad) will cause Emacs to interpolate the scroll." - :group 'scrolling :type 'boolean :version "29.1") -- 2.39.5