From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 31 Aug 1996 21:53:53 +0000 (+0000)
Subject: (Fgarbage_collect): Report used and free intervals.
X-Git-Tag: emacs-20.1~3943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa9e8864b4bfe8d00db52634893ebef0c2cd2d80;p=emacs.git

(Fgarbage_collect): Report used and free intervals.
---

diff --git a/src/alloc.c b/src/alloc.c
index 662c334d47b..2e48c918dd0 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1450,7 +1450,7 @@ DEFUN ("garbage-collect", Fgarbage_collect, Sgarbage_collect, 0, 0, "",
 Returns info on amount of space in use:\n\
  ((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)\n\
   (USED-MARKERS . FREE-MARKERS) USED-STRING-CHARS USED-VECTOR-SLOTS\n\
-  (USED-FLOATS . FREE-FLOATS))\n\
+  (USED-FLOATS . FREE-FLOATS) (USED-INTERVALS . FREE-INTERVALS))\n\
 Garbage collection happens automatically if you cons more than\n\
 `gc-cons-threshold' bytes of Lisp data since previous garbage collection.")
   ()
@@ -1625,15 +1625,21 @@ Garbage collection happens automatically if you cons more than\n\
 				     make_number (total_free_markers)),
 			      Fcons (make_number (total_string_size),
 				     Fcons (make_number (total_vector_size),
-
+	 Fcons (Fcons
 #ifdef LISP_FLOAT_TYPE
-					    Fcons (Fcons (make_number (total_floats),
-							  make_number (total_free_floats)),
-						   Qnil)
+		(make_number (total_floats),
+		 make_number (total_free_floats)),
 #else /* not LISP_FLOAT_TYPE */
-					    Qnil
+		(make_number (0), make_number (0)),
 #endif /* not LISP_FLOAT_TYPE */
-					    )))));
+		Fcons (Fcons
+#ifdef USE_TEXT_PROPERTIES
+		       (make_number (total_intervals),
+			make_number (total_free_intervals)),
+#else /* not USE_TEXT_PROPERTIES */
+		       (make_number (0), make_number (0)),
+#endif /* not USE_TEXT_PROPERTIES */
+		       Qnil)))))));
 }
 
 #if 0