[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/syntax.c
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/src/syntax.c |
Date: |
Sat, 16 Aug 2003 20:25:17 -0400 |
Index: emacs/src/syntax.c
diff -c emacs/src/syntax.c:1.166 emacs/src/syntax.c:1.167
*** emacs/src/syntax.c:1.166 Sat May 17 08:50:24 2003
--- emacs/src/syntax.c Sat Aug 16 20:25:17 2003
***************
*** 1277,1297 ****
return from;
}
! DEFUN ("forward-word", Fforward_word, Sforward_word, 1, 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;
{
int orig_val, val;
- CHECK_NUMBER (count);
! val = orig_val = scan_words (PT, XINT (count));
if (! orig_val)
! val = XINT (count) > 0 ? ZV : BEGV;
/* Avoid jumping out of an input field. */
val = XFASTINT (Fconstrain_to_field (make_number (val), make_number (PT),
--- 1277,1301 ----
return from;
}
! 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. */)
! (arg)
! Lisp_Object arg;
{
int orig_val, val;
! if (NILP (arg))
! XSETFASTINT (arg, 1);
! else
! CHECK_NUMBER (arg);
!
! val = orig_val = scan_words (PT, XINT (arg));
if (! orig_val)
! val = XINT (arg) > 0 ? ZV : BEGV;
/* Avoid jumping out of an input field. */
val = XFASTINT (Fconstrain_to_field (make_number (val), make_number (PT),
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/syntax.c,
Richard M. Stallman <=