Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
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
Options
Browse Files
Download
Email Patches
Plain Diff
(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