HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a3111ae
)
(check_cons_list): New function (contents commented out).
author
Richard M. Stallman
<rms@gnu.org>
Sun, 25 Jul 2004 17:35:04 +0000
(17:35 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Sun, 25 Jul 2004 17:35:04 +0000
(17:35 +0000)
src/alloc.c
patch
|
blob
|
blame
|
history
diff --git
a/src/alloc.c
b/src/alloc.c
index
5c2a6fb
..
ece150f
100644
(file)
--- 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. */