From f13c0464ccf3ab08db3cfd719fd86319dc1f3f95 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Tue, 18 Jul 2023 22:01:17 +0800 Subject: [PATCH] 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 -- 2.39.2