Fix typos in touch-screen.el

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

diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el
index ad27c28d5f9fb5e0e7ccd2f8705dfe1fd8888bb8..4c43ec4b63f5d8e49e0c88e36def218a126f0466 100644 (file)
--- 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