Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Fix documentation of widget commands

Browse source 
* doc/misc/widget.texi (Widgets and the Buffer): Fix the
signatures of 'widget-forward' and 'widget-backward'.  Reported by
Tim Landscheidt <tim@tim-landscheidt.de>.

* lisp/wid-edit.el (widget-forward, widget-backward)
(widget-move): Doc fixes.
This commit is contained in:
Eli Zaretskii 2026-02-07 11:45:00 +02:00
parent cdc390d992
commit e1524740be
2 changed files with 21 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
doc/misc/widget.texi
View file

@ -785,13 +785,19 @@ The following navigation commands are available:
@table @kbd @table @kbd
@item @key{TAB} @item @key{TAB}
@deffn Command widget-forward &optional count @deffn Command widget-forward count &optional suppress-echo
Move point @var{count} buttons or editing fields forward. Move point @var{count} buttons or editing fields forward. The optional
@var{suppress-echo} argument suppresses showing in the echo-area the
help-echo text, if any, for the final position after the move; it is
always @code{nil} in interactive invocations.
@end deffn @end deffn
@item M-@key{TAB} @item M-@key{TAB}
@itemx S-@key{TAB} @itemx S-@key{TAB}
@deffn Command widget-backward &optional count @deffn Command widget-backward count &optional suppress-echo
Move point @var{count} buttons or editing fields backward. Move point @var{count} buttons or editing fields backward. The optional
@var{suppress-echo} argument suppresses showing in the echo-area the
help-echo text, if any, for the final position after the move; it is
always @code{nil} in interactive invocations.
@end deffn @end deffn
@end table @end table

22
lisp/wid-edit.el
View file

@ -1334,10 +1334,10 @@ POS defaults to the value of (point). If user option
This is much faster.") This is much faster.")
(defun widget-move (arg &optional suppress-echo) (defun widget-move (arg &optional suppress-echo)
"Move point to the ARG next field or button. "Move point to the ARGth next field or button.
ARG may be negative to move backward. ARG may be negative to move backward.
When the second optional argument is non-nil, If the optional argument SUPPRESS-ECHO is non-nil, suppress showing
nothing is shown in the echo area." in the echo area the help-echo, if any, for the final position."
(let* ((wrapped 0) (let* ((wrapped 0)
(number arg) (number arg)
(fwd (> arg 0)) ; widget-forward is caller. (fwd (> arg 0)) ; widget-forward is caller.
@ -1384,19 +1384,19 @@ nothing is shown in the echo area."
(run-hooks 'widget-move-hook)) (run-hooks 'widget-move-hook))
(defun widget-forward (arg &optional suppress-echo) (defun widget-forward (arg &optional suppress-echo)
"Move point to the next field or button. "Move point forward across ARG fields or buttons.
With optional ARG, move across that many fields. Interactively, ARG is the prefix numeric argument and defaults to 1.
When the second optional argument is non-nil, If the optional argument SUPPRESS-ECHO is non-nil, suppress showing
nothing is shown in the echo area." in the echo area the help-echo, if any, for the final position."
(interactive "p") (interactive "p")
(run-hooks 'widget-forward-hook) (run-hooks 'widget-forward-hook)
(widget-move arg suppress-echo)) (widget-move arg suppress-echo))
(defun widget-backward (arg &optional suppress-echo) (defun widget-backward (arg &optional suppress-echo)
"Move point to the previous field or button. "Move point back across ARG fields or buttons.
With optional ARG, move across that many fields. Interactively, ARG is the prefix numeric argument and defaults to 1.
When the second optional argument is non-nil, If the optional argument SUPPRESS-ECHO is non-nil, suppress showing
nothing is shown in the echo area." in the echo area the help-echo, if any, for the final position."
(interactive "p") (interactive "p")
(run-hooks 'widget-backward-hook) (run-hooks 'widget-backward-hook)
(widget-move (- arg) suppress-echo)) (widget-move (- arg) suppress-echo))