diff options
| author | Po Lu <luangruo@yahoo.com> | 2023-07-18 22:01:17 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2023-07-18 22:01:17 +0800 |
| commit | f13c0464ccf3ab08db3cfd719fd86319dc1f3f95 (patch) | |
| tree | cb8e0d14a663be332187cf85dc2dd9b1f2526657 /lisp/touch-screen.el | |
| parent | a636a6607084944d675e0ecc32203f9546ab5120 (diff) | |
| download | emacs-f13c0464ccf3ab08db3cfd719fd86319dc1f3f95.tar.gz | |
Fix typos in touch-screen.el
* lisp/touch-screen.el (touch-screen-handle-point-update)
(touch-screen-handle-point-up): Fix typos.
Diffstat (limited to 'lisp/touch-screen.el')
| -rw-r--r-- | lisp/touch-screen.el | 7 |
1 files 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 |