diff options
| author | Po Lu | 2021-12-24 15:35:15 +0800 |
|---|---|---|
| committer | Po Lu | 2021-12-24 15:35:39 +0800 |
| commit | c9f05cbe3fc7290cc4874afa378cdf8062e84e2f (patch) | |
| tree | e45efb6a4a5d996a3e9987480c47db63053b3e45 /lisp/pixel-scroll.el | |
| parent | 8e0d327b8ce7cacf2de8ad38c4bd432a94750622 (diff) | |
| download | emacs-c9f05cbe3fc7290cc4874afa378cdf8062e84e2f.tar.gz emacs-c9f05cbe3fc7290cc4874afa378cdf8062e84e2f.zip | |
Make precision scrolling work on margins and fringes
* lisp/pixel-scroll.el (pixel-scroll-precision-mode-map): Add
missing key definitions.
Diffstat (limited to 'lisp/pixel-scroll.el')
| -rw-r--r-- | lisp/pixel-scroll.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index d3b45000239..b943365a3f5 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el | |||
| @@ -108,6 +108,18 @@ is always with pixel resolution.") | |||
| 108 | (define-key map [vertical-scroll-bar wheel-down] #'pixel-scroll-precision) | 108 | (define-key map [vertical-scroll-bar wheel-down] #'pixel-scroll-precision) |
| 109 | (define-key map [vertical-scroll-bar wheel-up] #'pixel-scroll-precision) | 109 | (define-key map [vertical-scroll-bar wheel-up] #'pixel-scroll-precision) |
| 110 | (define-key map [vertical-scroll-bar touch-end] #'pixel-scroll-start-momentum) | 110 | (define-key map [vertical-scroll-bar touch-end] #'pixel-scroll-start-momentum) |
| 111 | (define-key map [left-margin wheel-down] #'pixel-scroll-precision) | ||
| 112 | (define-key map [left-margin wheel-up] #'pixel-scroll-precision) | ||
| 113 | (define-key map [left-margin touch-end] #'pixel-scroll-start-momentum) | ||
| 114 | (define-key map [right-margin wheel-down] #'pixel-scroll-precision) | ||
| 115 | (define-key map [right-margin wheel-up] #'pixel-scroll-precision) | ||
| 116 | (define-key map [right-margin touch-end] #'pixel-scroll-start-momentum) | ||
| 117 | (define-key map [left-fringe wheel-down] #'pixel-scroll-precision) | ||
| 118 | (define-key map [left-fringe wheel-up] #'pixel-scroll-precision) | ||
| 119 | (define-key map [left-fringe touch-end] #'pixel-scroll-start-momentum) | ||
| 120 | (define-key map [right-fringe wheel-down] #'pixel-scroll-precision) | ||
| 121 | (define-key map [right-fringe wheel-up] #'pixel-scroll-precision) | ||
| 122 | (define-key map [right-fringe touch-end] #'pixel-scroll-start-momentum) | ||
| 111 | map) | 123 | map) |
| 112 | "The key map used by `pixel-scroll-precision-mode'.") | 124 | "The key map used by `pixel-scroll-precision-mode'.") |
| 113 | 125 | ||