Mercurial > emacs
comparison src/alloc.c @ 62335:401714f3f9de
(Fmemory_full_p): New function.
(syms_of_alloc): defsubr it.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 14 May 2005 14:07:03 +0000 |
parents | 832617c86aa7 |
children | d140f1408030 8b66fddd72c5 f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
62334:f9dc4e8a41fe | 62335:401714f3f9de |
---|---|
532 get infinite recursion trying to build the string. */ | 532 get infinite recursion trying to build the string. */ |
533 while (1) | 533 while (1) |
534 Fsignal (Qnil, Vmemory_signal_data); | 534 Fsignal (Qnil, Vmemory_signal_data); |
535 } | 535 } |
536 | 536 |
537 DEFUN ("memory-full-p", Fmemory_full_p, Smemory_full_p, 0, 0, 0, | |
538 doc: /* t if memory is nearly full, nil otherwise. */) | |
539 () | |
540 { | |
541 return (spare_memory ? Qnil : Qt); | |
542 } | |
537 | 543 |
538 /* Called if we can't allocate relocatable space for a buffer. */ | 544 /* Called if we can't allocate relocatable space for a buffer. */ |
539 | 545 |
540 void | 546 void |
541 buffer_memory_full () | 547 buffer_memory_full () |
6076 doc: /* Accumulated time elapsed in garbage collections. | 6082 doc: /* Accumulated time elapsed in garbage collections. |
6077 The time is in seconds as a floating point value. */); | 6083 The time is in seconds as a floating point value. */); |
6078 DEFVAR_INT ("gcs-done", &gcs_done, | 6084 DEFVAR_INT ("gcs-done", &gcs_done, |
6079 doc: /* Accumulated number of garbage collections done. */); | 6085 doc: /* Accumulated number of garbage collections done. */); |
6080 | 6086 |
6087 defsubr (&Smemory_full_p); | |
6081 defsubr (&Scons); | 6088 defsubr (&Scons); |
6082 defsubr (&Slist); | 6089 defsubr (&Slist); |
6083 defsubr (&Svector); | 6090 defsubr (&Svector); |
6084 defsubr (&Smake_byte_code); | 6091 defsubr (&Smake_byte_code); |
6085 defsubr (&Smake_list); | 6092 defsubr (&Smake_list); |