Mercurial > emacs

comparison src/alloc.c @ 5874:fbda87c8ad54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fgarbage_collect): Save echo_area_glyphs_length.
author Karl Heuer <kwzh@gnu.org>
date Thu, 10 Feb 1994 00:35:15 +0000
parents a7bd57a60cb8
children 64417bbbb128
comparison
equal deleted inserted replaced
5873:fa8b769ef564 5874:fbda87c8ad54
1230 struct catchtag *catch; 1230 struct catchtag *catch;
1231 struct handler *handler; 1231 struct handler *handler;
1232 register struct backtrace *backlist; 1232 register struct backtrace *backlist;
1233 register Lisp_Object tem; 1233 register Lisp_Object tem;
1234 char *omessage = echo_area_glyphs; 1234 char *omessage = echo_area_glyphs;
1235 int omessage_length = echo_area_glyphs_length;
1235 char stack_top_variable; 1236 char stack_top_variable;
1236 register int i; 1237 register int i;
1237 1238
1238 /* Save a copy of the contents of the stack, for debugging. */ 1239 /* Save a copy of the contents of the stack, for debugging. */
1239 #if MAX_SAVE_STACK > 0 1240 #if MAX_SAVE_STACK > 0
1372 consing_since_gc = 0; 1373 consing_since_gc = 0;
1373 if (gc_cons_threshold < 10000) 1374 if (gc_cons_threshold < 10000)
1374 gc_cons_threshold = 10000; 1375 gc_cons_threshold = 10000;
1375 1376
1376 if (omessage || minibuf_level > 0) 1377 if (omessage || minibuf_level > 0)
1377 message1 (omessage); 1378 message2 (omessage, omessage_length);
1378 else if (!noninteractive) 1379 else if (!noninteractive)
1379 message1 ("Garbage collecting...done"); 1380 message1 ("Garbage collecting...done");
1380 1381
1381 return Fcons (Fcons (make_number (total_conses), 1382 return Fcons (Fcons (make_number (total_conses),
1382 make_number (total_free_conses)), 1383 make_number (total_free_conses)),