procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make precision scrolling on top of the tool bar work

Browse source 
* lisp/pixel-scroll.el (pixel-scroll-precision-mode-map): Bind
some more events.

(pixel-scroll-precision):
(pixel-scroll-start-momentum): If window is a frame, use its
selected window.
This commit is contained in:
Po Lu 2022-03-01 15:38:37 +08:00
parent 54474a6db2
commit dd71222208
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/pixel-scroll.el
View file

@ -129,6 +129,9 @@ 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 [tool-bar wheel-down] 'pixel-scroll-precision)
(define-key map [tool-bar wheel-up] 'pixel-scroll-precision)
(define-key map [tool-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)
@ -669,6 +672,8 @@ wheel."
(interactive "e")
(let ((window (mwheel-event-window event))
(current-window (selected-window)))
(when (framep window)
(setq window (frame-selected-window window)))
(if (and (nth 4 event))
(let ((delta (round (cdr (nth 4 event)))))
(unless (zerop delta)
@ -742,6 +747,8 @@ It is a vector of the form [ VELOCITY TIME SIGN ]."
(when pixel-scroll-precision-use-momentum
(let ((window (mwheel-event-window event))
(state nil))
(when (framep window)
(setq window (frame-selected-window window)))
(setq state (pixel-scroll-kinetic-state window))
(when (and (aref state 1)
(listp (aref state 0)))