[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/android cf50cd99ce7: * lisp/touch-screen.el (touch-screen-handle
From: |
Po Lu |
Subject: |
feature/android cf50cd99ce7: * lisp/touch-screen.el (touch-screen-handle-point-update): Fix typo. |
Date: |
Tue, 18 Jul 2023 03:46:26 -0400 (EDT) |
branch: feature/android
commit cf50cd99ce7a17e6ee400b0a6d58981064785c9e
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
* lisp/touch-screen.el (touch-screen-handle-point-update): Fix typo.
---
lisp/touch-screen.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/android cf50cd99ce7: * lisp/touch-screen.el (touch-screen-handle-point-update): Fix typo.,
Po Lu <=