Commit 59d36066 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(count_markers): New function.

parent adb63af1
......@@ -888,6 +888,23 @@ DEFUN ("buffer-has-markers-at", Fbuffer_has_markers_at, Sbuffer_has_markers_at,
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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment