diff options
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 6d576a10b73..353d546fce4 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -1334,10 +1334,10 @@ POS defaults to the value of (point). If user option | |||
| 1334 | This is much faster.") | 1334 | This is much faster.") |
| 1335 | 1335 | ||
| 1336 | (defun widget-move (arg &optional suppress-echo) | 1336 | (defun widget-move (arg &optional suppress-echo) |
| 1337 | "Move point to the ARG next field or button. | 1337 | "Move point to the ARGth next field or button. |
| 1338 | ARG may be negative to move backward. | 1338 | ARG may be negative to move backward. |
| 1339 | When the second optional argument is non-nil, | 1339 | If the optional argument SUPPRESS-ECHO is non-nil, suppress showing |
| 1340 | nothing is shown in the echo area." | 1340 | in the echo area the help-echo, if any, for the final position." |
| 1341 | (let* ((wrapped 0) | 1341 | (let* ((wrapped 0) |
| 1342 | (number arg) | 1342 | (number arg) |
| 1343 | (fwd (> arg 0)) ; widget-forward is caller. | 1343 | (fwd (> arg 0)) ; widget-forward is caller. |
| @@ -1384,19 +1384,19 @@ nothing is shown in the echo area." | |||
| 1384 | (run-hooks 'widget-move-hook)) | 1384 | (run-hooks 'widget-move-hook)) |
| 1385 | 1385 | ||
| 1386 | (defun widget-forward (arg &optional suppress-echo) | 1386 | (defun widget-forward (arg &optional suppress-echo) |
| 1387 | "Move point to the next field or button. | 1387 | "Move point forward across ARG fields or buttons. |
| 1388 | With optional ARG, move across that many fields. | 1388 | Interactively, ARG is the prefix numeric argument and defaults to 1. |
| 1389 | When the second optional argument is non-nil, | 1389 | If the optional argument SUPPRESS-ECHO is non-nil, suppress showing |
| 1390 | nothing is shown in the echo area." | 1390 | in the echo area the help-echo, if any, for the final position." |
| 1391 | (interactive "p") | 1391 | (interactive "p") |
| 1392 | (run-hooks 'widget-forward-hook) | 1392 | (run-hooks 'widget-forward-hook) |
| 1393 | (widget-move arg suppress-echo)) | 1393 | (widget-move arg suppress-echo)) |
| 1394 | 1394 | ||
| 1395 | (defun widget-backward (arg &optional suppress-echo) | 1395 | (defun widget-backward (arg &optional suppress-echo) |
| 1396 | "Move point to the previous field or button. | 1396 | "Move point back across ARG fields or buttons. |
| 1397 | With optional ARG, move across that many fields. | 1397 | Interactively, ARG is the prefix numeric argument and defaults to 1. |
| 1398 | When the second optional argument is non-nil, | 1398 | If the optional argument SUPPRESS-ECHO is non-nil, suppress showing |
| 1399 | nothing is shown in the echo area." | 1399 | in the echo area the help-echo, if any, for the final position." |
| 1400 | (interactive "p") | 1400 | (interactive "p") |
| 1401 | (run-hooks 'widget-backward-hook) | 1401 | (run-hooks 'widget-backward-hook) |
| 1402 | (widget-move (- arg) suppress-echo)) | 1402 | (widget-move (- arg) suppress-echo)) |