mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-12 14:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Don't perform pixel scrolling when window is hscrolled

Browse source 
* lisp/better-pixel-scroll.el (better-pixel-scroll): Call
mwheel-scroll instead if window is hscrolled.
This commit is contained in:
Po Lu 2021-11-26 13:07:54 +08:00
parent db3fbe884f
commit fc8b87d904
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/better-pixel-scroll.el
View file

@ -118,16 +118,17 @@ according to the user's turning the mouse wheel. If EVENT does
not have precise scrolling deltas, call `mwheel-scroll' instead.
ARG is passed to `mwheel-scroll', should that be called."
(interactive (list last-input-event current-prefix-arg))
(if (nth 4 event)
(let ((delta (round (cdr (nth 4 event))))
(window (mwheel-event-window event)))
(if (> (abs delta) (window-text-height window t))
(mwheel-scroll event arg)
(with-selected-window window
(let ((window (mwheel-event-window event)))
(if (and (nth 4 event)
(zerop (window-hscroll window)))
(let ((delta (round (cdr (nth 4 event)))))
(if (> (abs delta) (window-text-height window t))
(mwheel-scroll event arg)
(with-selected-window window
(if (< delta 0)
(better-pixel-scroll-scroll-down (- delta))
(better-pixel-scroll-scroll-up delta)))))
(mwheel-scroll event arg)))
(mwheel-scroll event arg))))
;;;###autoload
(define-minor-mode better-pixel-scroll-mode