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 d7f095629cc46449e83515735612cacae8bbed28..e9cd5ca4fd385f732afa65d842d7ef56f8792426 100644 (file)
--- 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)))