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. */
count_markers (buf)
struct buffer *buf;
int total = 0;
Lisp_Object tail;
for (tail = BUF_MARKERS (buf);
!NILP (tail);
tail = XMARKER (tail)->chain)
return total;
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