diff options
author | Po Lu <luangruo@yahoo.com> | 2021-12-23 21:35:46 +0800 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2021-12-23 21:35:46 +0800 |
commit | f9d518bc2f333e03d5e7c4e935b08fbe19f33c5b (patch) | |
tree | 1072234a993e943accef86f0cc3a30832439547b /lisp/pixel-scroll.el | |
parent | 03dc54ba7fbd83e93b6841acbed14ae8ce319b7c (diff) | |
download | emacs-f9d518bc2f333e03d5e7c4e935b08fbe19f33c5b.tar.gz |
Make precision scrolling also work on various bars
* lisp/pixel-scroll.el (pixel-scroll-precision-mode-map):
Define keys for various kinds of bars.
Diffstat (limited to 'lisp/pixel-scroll.el')
-rw-r--r-- | lisp/pixel-scroll.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index 975c5133f11..d3b45000239 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el @@ -99,6 +99,15 @@ is always with pixel resolution.") (define-key map [wheel-down] #'pixel-scroll-precision) (define-key map [wheel-up] #'pixel-scroll-precision) (define-key map [touch-end] #'pixel-scroll-start-momentum) + (define-key map [mode-line wheel-down] #'pixel-scroll-precision) + (define-key map [mode-line wheel-up] #'pixel-scroll-precision) + (define-key map [mode-line touch-end] #'pixel-scroll-start-momentum) + (define-key map [header-line wheel-down] #'pixel-scroll-precision) + (define-key map [header-line wheel-up] #'pixel-scroll-precision) + (define-key map [header-line touch-end] #'pixel-scroll-start-momentum) + (define-key map [vertical-scroll-bar wheel-down] #'pixel-scroll-precision) + (define-key map [vertical-scroll-bar wheel-up] #'pixel-scroll-precision) + (define-key map [vertical-scroll-bar touch-end] #'pixel-scroll-start-momentum) map) "The key map used by `pixel-scroll-precision-mode'.") |