diff src/syntax.c @ 88123:375f2633d815

New directory

--- a/src/syntax.c	Thu Sep 04 04:00:49 2003 +0000
+++ b/src/syntax.c	Mon Sep 08 11:56:09 2003 +0000
@@ -1277,25 +1277,21 @@
   return from;
 }
 
-DEFUN ("forward-word", Fforward_word, Sforward_word, 0, 1, "p",
+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.  */)
-     (arg)
-     Lisp_Object arg;
+     (count)
+     Lisp_Object count;
 {
   int orig_val, val;
-
-  if (NILP (arg))
-    XSETFASTINT (arg, 1);
-  else
-    CHECK_NUMBER (arg);
-
-  val = orig_val = scan_words (PT, XINT (arg));
+  CHECK_NUMBER (count);
+
+  val = orig_val = scan_words (PT, XINT (count));
   if (! orig_val)
-    val = XINT (arg) > 0 ? ZV : BEGV;
+    val = XINT (count) > 0 ? ZV : BEGV;
 
   /* Avoid jumping out of an input field.  */
   val = XFASTINT (Fconstrain_to_field (make_number (val), make_number (PT),
@@ -3110,6 +3106,3 @@
   defsubr (&Sbackward_prefix_chars);
   defsubr (&Sparse_partial_sexp);
 }
-
-/* arch-tag: 3e297b9f-088e-4b64-8f4c-fb0b3443e412
-   (do not change this comment) */