martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make precision scrolling work on margins and fringes

Browse Source 
* lisp/pixel-scroll.el (pixel-scroll-precision-mode-map): Add
missing key definitions.
This commit is contained in:
Po Lu
2021-12-24 15:35:15 +08:00
parent 8e0d327b8c
commit c9f05cbe3f
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/pixel-scroll.el
View File

@@ -108,6 +108,18 @@ is always with pixel resolution.")
(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)
(define-key map [left-margin wheel-down] #'pixel-scroll-precision)
(define-key map [left-margin wheel-up] #'pixel-scroll-precision)
(define-key map [left-margin touch-end] #'pixel-scroll-start-momentum)
(define-key map [right-margin wheel-down] #'pixel-scroll-precision)
(define-key map [right-margin wheel-up] #'pixel-scroll-precision)
(define-key map [right-margin touch-end] #'pixel-scroll-start-momentum)
(define-key map [left-fringe wheel-down] #'pixel-scroll-precision)
(define-key map [left-fringe wheel-up] #'pixel-scroll-precision)
(define-key map [left-fringe touch-end] #'pixel-scroll-start-momentum)
(define-key map [right-fringe wheel-down] #'pixel-scroll-precision)
(define-key map [right-fringe wheel-up] #'pixel-scroll-precision)
(define-key map [right-fringe touch-end] #'pixel-scroll-start-momentum)
map)
"The key map used by `pixel-scroll-precision-mode'.")