Mercurial > emacs
changeset 52213:d8341603541c
(Fforward_word): Argument changed to optional. Set default value to 1.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 17 Aug 2003 00:25:17 +0000 |
| parents | db86c36d5abf |
| children | 0a6efed807f5 |
| files | src/syntax.c |
| diffstat | 1 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/syntax.c Sun Aug 17 00:24:34 2003 +0000 +++ b/src/syntax.c Sun Aug 17 00:25:17 2003 +0000 @@ -1277,21 +1277,25 @@ return from; } -DEFUN ("forward-word", Fforward_word, Sforward_word, 1, 1, "p", +DEFUN ("forward-word", Fforward_word, Sforward_word, 0, 1, "p", doc: /* Move point forward ARG words (backward if ARG is negative). Normally returns t. If an edge of the buffer or a field boundary is reached, point is left there and the function returns nil. Field boundaries are not noticed if `inhibit-field-text-motion' is non-nil. */) - (count) - Lisp_Object count; + (arg) + Lisp_Object arg; { int orig_val, val; - CHECK_NUMBER (count); - - val = orig_val = scan_words (PT, XINT (count)); + + if (NILP (arg)) + XSETFASTINT (arg, 1); + else + CHECK_NUMBER (arg); + + val = orig_val = scan_words (PT, XINT (arg)); if (! orig_val) - val = XINT (count) > 0 ? ZV : BEGV; + val = XINT (arg) > 0 ? ZV : BEGV; /* Avoid jumping out of an input field. */ val = XFASTINT (Fconstrain_to_field (make_number (val), make_number (PT),