mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Don't pan horizontally when a pinch gesture represents a shrink

Browse source 
* lisp/touch-screen.el (touch-screen-pinch): Don't pan left if
the event represents a shrink.
This commit is contained in:
Po Lu 2023-11-16 17:38:53 +08:00
parent dd0f009c51
commit 076c5f1f17
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/touch-screen.el
View file

@ -952,7 +952,7 @@ text scale by the ratio therein."
;; and Emacs can hscroll left even when no lines are
;; truncated.
(unless (and (< x-accumulator 0)
(< ratio-diff -0.2))
(< ratio-diff 0))
(if (> x-accumulator 0)
(scroll-right 1)
(scroll-left 1)))