comparison src/marker.c @ 44560:0fddc27db9ae

(count_markers): New function.

44559:a7ca9a83f673

    if (XMARKER (tail)->charpos == charno)
      return Qt;

  return Qnil;
}

void
syms_of_marker ()
{
  defsubr (&Smarker_position);

44560:0fddc27db9ae

    if (XMARKER (tail)->charpos == charno)
      return Qt;

  return Qnil;
}

/* For debugging -- count the markers in buffer BUF.  */

int
count_markers (buf)
     struct buffer *buf;
{
  int total = 0;
  Lisp_Object tail;

  for (tail = BUF_MARKERS (buf);
       !NILP (tail);
       tail = XMARKER (tail)->chain)
    total++;

  return total;
}

void
syms_of_marker ()
{
  defsubr (&Smarker_position);