From 076c5f1f173f034e45ed3f22a7a92305ee8204de Mon Sep 17 00:00:00 2001 From: Po Lu Date: Thu, 16 Nov 2023 17:38:53 +0800 Subject: [PATCH] Don't pan horizontally when a pinch gesture represents a shrink * lisp/touch-screen.el (touch-screen-pinch): Don't pan left if the event represents a shrink. --- lisp/touch-screen.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el index d7f095629cc..e9cd5ca4fd3 100644 --- a/lisp/touch-screen.el +++ b/lisp/touch-screen.el @@ -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))) -- 2.39.2