Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-26

Merge from emacs--cvs-trunk--0

Patches applied:

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-466
 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-470
   Update from CVS

1 files changed, 11 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 0e3e78bbac2..567b8c7a925 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2395,6 +2395,17 @@ DEFUN ("cons", Fcons, Scons, 2, 2, 0,
   return val;
 }
 
+/* Get an error now if there's any junk in the cons free list.  */
+void
+check_cons_list ()
+{
+  struct Lisp_Cons *tail = cons_free_list;
+
+#if 0
+  while (tail)
+    tail = *(struct Lisp_Cons **)&tail->cdr;
+#endif
+}
 
 /* Make a list of 2, 3, 4 or 5 specified objects.  */