From: Po Lu <luangruo@yahoo.com>
Date: Thu, 16 Nov 2023 09:38:53 +0000 (+0800)
Subject: Don't pan horizontally when a pinch gesture represents a shrink
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=076c5f1f173f034e45ed3f22a7a92305ee8204de;p=emacs.git

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.
---

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)))