emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/android f13c0464ccf: Fix typos in touch-screen.el


From: Po Lu
Subject: feature/android f13c0464ccf: Fix typos in touch-screen.el
Date: Tue, 18 Jul 2023 10:04:47 -0400 (EDT)

branch: feature/android
commit f13c0464ccf3ab08db3cfd719fd86319dc1f3f95
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Fix typos in touch-screen.el
    
    * lisp/touch-screen.el (touch-screen-handle-point-update)
    (touch-screen-handle-point-up): Fix typos.
---
 lisp/touch-screen.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el
index ad27c28d5f9..4c43ec4b63f 100644
--- a/lisp/touch-screen.el
+++ b/lisp/touch-screen.el
@@ -573,7 +573,7 @@ then move point to the position of POINT."
                             (> diff-x (frame-char-width)))
                        (< diff-y -10)
                        (and diff-x-eligible
-                            (< diff-x (frame-char-width))))
+                            (< diff-x (- (frame-char-width)))))
                (setcar (nthcdr 3 touch-screen-current-tool)
                        'scroll)
                (setcar (nthcdr 2 touch-screen-current-tool)
@@ -686,8 +686,9 @@ is not read-only."
                    window (posn-window posn))
              ;; Select the window that was tapped given that it isn't
              ;; an inactive minibuffer window.
-             (when (or (not (eq window)
-                            (minibuffer-window (window-frame window)))
+             (when (or (not (eq window
+                                (minibuffer-window
+                                 (window-frame window))))
                        (minibuffer-window-active-p window))
                (select-window window))
              ;; Now simulate a mouse click there.  If there is a link



reply via email to

[Prev in Thread] Current Thread [Next in Thread]