mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 14:10:47 -08:00
Code Issues 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'.")