comparison src/syntax.c @ 58897:98e94b29b59b

(Fforward_word): Avoid non-idempotent side-effects in macro arguments.

58896:dc2516edbe6c

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

  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),
				       Qt, Qnil, Qnil));

  SET_PT (val);
  return val == orig_val ? Qt : Qnil;
}


58897:98e94b29b59b

and the function returns nil.  Field boundaries are not noticed if
`inhibit-field-text-motion' is non-nil.  */)
     (arg)
     Lisp_Object arg;
{
  Lisp_Object tmp;
  int orig_val, val;

  if (NILP (arg))
    XSETFASTINT (arg, 1);
  else

  val = orig_val = scan_words (PT, XINT (arg));
  if (! orig_val)
    val = XINT (arg) > 0 ? ZV : BEGV;

  /* Avoid jumping out of an input field.  */
  tmp = Fconstrain_to_field (make_number (val), make_number (PT),
			     Qt, Qnil, Qnil);
  val = XFASTINT (tmp);

  SET_PT (val);
  return val == orig_val ? Qt : Qnil;
}