master 076c5f1f173 2/2: Don't pan horizontally when a pinch gesture represents a shrink

[Po Lu]

branch: master
commit 076c5f1f173f034e45ed3f22a7a92305ee8204de
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

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