From: Po Lu <luangruo@yahoo.com>
Date: Tue, 18 Jul 2023 07:46:07 +0000 (+0800)
Subject: * lisp/touch-screen.el (touch-screen-handle-point-update): Fix typo.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf50cd99ce7a17e6ee400b0a6d58981064785c9e;p=emacs.git

* lisp/touch-screen.el (touch-screen-handle-point-update): Fix typo.
---

diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el
index cb9bfa06b7d..ad27c28d5f9 100644
--- a/lisp/touch-screen.el
+++ b/lisp/touch-screen.el
@@ -556,7 +556,7 @@ then move point to the position of POINT."
                   ;; WINDOW.
                   (relative-xy
                    (touch-screen-relative-xy posn window))
-                  (col (and (posn-area original-posn)
+                  (col (and (not (posn-area original-posn))
                             (car (posn-col-row original-posn
                                                (posn-window posn)))))
                   ;; Don't start horizontal scrolling if the touch
@@ -564,8 +564,8 @@ then move point to the position of POINT."
                   ;; edges, as systems like Android use those two
                   ;; columns to implement gesture navigation.
                   (diff-x-eligible
-                   (and col (> (car col) 2)
-                        (< (car col) (- (window-width window) 2))))
+                   (and col (> col 2)
+                        (< col (- (window-width window) 2))))
                   (diff-x (- (car last-posn) (car relative-xy)))
                   (diff-y (- (cdr last-posn) (cdr relative-xy))))
              (when (or (> diff-y 10)