Mercurial > emacs
diff src/alloc.c @ 83182:4e92102a0172
Merged in changes from CVS trunk.
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-468
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-469
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-222
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Tue, 27 Jul 2004 07:43:21 +0000 |
| parents | a79c4db19c4f 9fc5aae4053e |
| children | b5dee7c1d483 |
line wrap: on
line diff
--- a/src/alloc.c Sat Jul 24 22:08:12 2004 +0000 +++ b/src/alloc.c Tue Jul 27 07:43:21 2004 +0000 @@ -2396,6 +2396,17 @@ 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. */