Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
29e16385
Commit
29e16385
authored
Aug 17, 2003
by
Richard M. Stallman
Browse files
(Fforward_word): Argument changed to optional. Set default value to 1.
parent
2a6f12e2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
6 deletions
+10
-6
src/syntax.c
src/syntax.c
+10
-6
No files found.
src/syntax.c
View file @
29e16385
...
...
@@ -1277,21 +1277,25 @@ scan_words (from, count)
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),
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment