procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix typos in touch-screen.el

Browse source 
* lisp/touch-screen.el (touch-screen-handle-point-update)
(touch-screen-handle-point-up): Fix typos.
This commit is contained in:
Po Lu 2023-07-18 22:01:17 +08:00
parent a636a66070
commit f13c0464cc
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/touch-screen.el
View file

@ -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