comparison src/editfns.c @ 18252:9c4fb902b6eb

(Fchar_after, Fchar_before): Make arg optional.

18251:e0327e90d706

  if (PT == ZV || FETCH_BYTE (PT) == '\n')
    return Qt;
  return Qnil;
}

DEFUN ("char-after", Fchar_after, Schar_after, 1, 1, 0,
  "Return character in current buffer at position POS.\n\
POS is an integer or a buffer pointer.\n\
If POS is out of range, the value is nil.\n\
If `enable-multibyte-characters' is nil or POS is not at character boundary,\n\
 multi-byte form is ignored, and only one byte at POS\n\

     Lisp_Object pos;
{
  register Lisp_Object val;
  register int n;

  CHECK_NUMBER_COERCE_MARKER (pos, 0);

  n = XINT (pos);
  if (n < BEGV || n >= ZV) return Qnil;

  XSETFASTINT (val, FETCH_CHAR (n));
  return val;
}

DEFUN ("char-before", Fchar_before, Schar_before, 1, 1, 0,
  "Return character in current buffer preceding position POS.\n\
POS is an integer or a buffer pointer.\n\
If POS is out of range, the value is nil.\n\
If `enable-multibyte-characters' is nil or POS is not at character boundary,\n\
multi-byte form is ignored, and only one byte preceding POS\n\

     Lisp_Object pos;
{
  register Lisp_Object val;
  register int n;

  CHECK_NUMBER_COERCE_MARKER (pos, 0);

  n = XINT (pos);
  if (n <= BEGV || n > ZV) return Qnil;

  if (!NILP (current_buffer->enable_multibyte_characters))
    {
      DEC_POS (pos);
      XSETFASTINT (val, FETCH_CHAR (pos));

18252:9c4fb902b6eb

  if (PT == ZV || FETCH_BYTE (PT) == '\n')
    return Qt;
  return Qnil;
}

DEFUN ("char-after", Fchar_after, Schar_after, 0, 1, 0,
  "Return character in current buffer at position POS.\n\
POS is an integer or a buffer pointer.\n\
If POS is out of range, the value is nil.\n\
If `enable-multibyte-characters' is nil or POS is not at character boundary,\n\
 multi-byte form is ignored, and only one byte at POS\n\

     Lisp_Object pos;
{
  register Lisp_Object val;
  register int n;

  if (NILP (pos))
    n = PT;
  else
    {
      CHECK_NUMBER_COERCE_MARKER (pos, 0);

      n = XINT (pos);
      if (n < BEGV || n >= ZV)
	return Qnil;
    }

  XSETFASTINT (val, FETCH_CHAR (n));
  return val;
}

DEFUN ("char-before", Fchar_before, Schar_before, 0, 1, 0,
  "Return character in current buffer preceding position POS.\n\
POS is an integer or a buffer pointer.\n\
If POS is out of range, the value is nil.\n\
If `enable-multibyte-characters' is nil or POS is not at character boundary,\n\
multi-byte form is ignored, and only one byte preceding POS\n\

     Lisp_Object pos;
{
  register Lisp_Object val;
  register int n;

  if (NILP (pos))
    n = PT;
  else
    {
      CHECK_NUMBER_COERCE_MARKER (pos, 0);

      n = XINT (pos);
      if (n < BEGV || n >= ZV)
	return Qnil;
    }

  if (!NILP (current_buffer->enable_multibyte_characters))
    {
      DEC_POS (pos);
      XSETFASTINT (val, FETCH_CHAR (pos));