summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2024-04-29 15:32:12 +0300
committerEli Zaretskii <eliz@gnu.org>2024-04-29 15:32:12 +0300
commitf6ae5939b950bdec86471b02e81d1b3827546a2d (patch)
treeaf02f8074ca9e211304841892640abb655a9e0ff
parent3be382311fa03b9ec9c571b5e5737ff2d51bc2d3 (diff)
; Fix documentation of recent commits.
* lisp/touch-screen.el (touch-screen-handle-point-up): Fix comments. * lisp/net/eww.el (eww-check-text-conversion, eww-select-file) (eww-toggle-checkbox, eww-submit): Doc fixes. * doc/emacs/input.texi (On-Screen Keyboards): Fix punctuation and wording.
-rw-r--r--doc/emacs/input.texi4
-rw-r--r--lisp/net/eww.el18
-rw-r--r--lisp/touch-screen.el11
3 files changed, 19 insertions, 14 deletions
diff --git a/doc/emacs/input.texi b/doc/emacs/input.texi
index d48c13355b3..b553c0895cd 100644
--- a/doc/emacs/input.texi
+++ b/doc/emacs/input.texi
@@ -127,9 +127,9 @@ minibuffer being brought into use (@pxref{Minibuffer}).
@vindex touch-screen-set-point-commands
When a ``tap'' gesture results in a command being executed, Emacs
checks whether the command is meant to set the point by searching for it
-in the list @code{touch-screen-set-point-commands}. If it is and the
+in the list @code{touch-screen-set-point-commands}. If it is, and the
text beneath the new point is not read-only, the virtual keyboard is
-activated, in anticipation of the user entering text there.
+activated, in anticipation of the user input there.
The default value of @code{touch-screen-set-point-commands} holds only
the command @code{mouse-set-point} (@pxref{Mouse Commands}), which is
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 4bb491b9970..5a138dcc46a 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1304,10 +1304,11 @@ This consults the entries in `eww-readable-urls' (which see)."
(defun eww-check-text-conversion ()
"Check if point is within a field and toggle text conversion.
-If `text-conversion-style' is not `action' if point is within the
-prompt or `nil' otherwise, set it to such a value, so as to
-guarantee that the input method functions properly for the
-purpose of typing within the ERC prompt."
+Set `text-conversion-style' to the value `action' if it isn't
+already and point is within the prompt field, or if
+`text-conversion-style' is `nil', so as to guarantee that
+the input method functions properly for the purpose of typing
+within the ERC prompt."
(when (and (eq major-mode 'eww-mode)
(fboundp 'set-text-conversion-style))
(if (eq (car-safe (get-text-property (point) 'field))
@@ -1649,7 +1650,8 @@ just re-display the HTML already fetched."
(defun eww-select-file (&optional event)
"Change the value of the upload file menu under point.
-EVENT, if non-nil, is the mouse event that preceded this command."
+EVENT, if non-nil, is the mouse event that preceded this command.
+Interactively, EVENT is the value of `last-nonmenu-event'."
(interactive (list last-nonmenu-event) eww-mode)
(when (and event (setq event (event-start event)))
(goto-char (posn-point event)))
@@ -1904,7 +1906,8 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
(defun eww-toggle-checkbox (&optional event)
"Toggle the value of the checkbox under point.
-EVENT, if non-nil, is the mouse event that preceded this command."
+EVENT, if non-nil, is the mouse event that preceded this command.
+Interactively, EVENT is the value of `last-nonmenu-event'."
(interactive (list last-nonmenu-event) eww-mode)
(when (and event (setq event (event-start event)))
(goto-char (posn-point event)))
@@ -1977,7 +1980,8 @@ EVENT, if non-nil, is the mouse event that preceded this command."
(defun eww-submit (&optional event)
"Submit the form under point or EVENT.
-EVENT, if non-nil, is the mouse event that preceded this command."
+EVENT, if non-nil, is the mouse event that preceded this command.
+Interactively, EVENT is the value of `last-nonmenu-event'."
(interactive (list last-nonmenu-event) eww-mode)
(when (and event (setq event (event-start event)))
(goto-char (posn-point event)))
diff --git a/lisp/touch-screen.el b/lisp/touch-screen.el
index 537780eb708..e44b266a617 100644
--- a/lisp/touch-screen.el
+++ b/lisp/touch-screen.el
@@ -1360,18 +1360,19 @@ is not read-only."
(when command
(if (or (memq command touch-screen-set-point-commands)
;; Users of packages that redefine
- ;; mouse-set-point, or other commands
+ ;; `mouse-set-point', or other commands
;; recognized as defining the point, should
;; not find the on screen keyboard
- ;; inaccessible even with t-s-d-k enabled.
+ ;; inaccessible even with
+ ;; `touch-screen-display-keyboard' enabled.
touch-screen-display-keyboard)
(if touch-screen-translate-prompt
;; Forgo displaying the virtual keyboard
- ;; should touch-screen-translate-prompt be
+ ;; should `touch-screen-translate-prompt' be
;; set, for then the key won't be delivered
;; to the command loop, but rather to a
- ;; caller of read-key-sequence such as
- ;; describe-key.
+ ;; caller of `read-key-sequence' such as
+ ;; `describe-key'.
(throw 'input-event event)
(if (and (or (not buffer-read-only)
;; Display the on screen