Mercurial > emacs
comparison src/alloc.c @ 6133:752d4237f869
(memory_signal_data): No longer static.
(syms_of_alloc): Stick Qerror onto memory_signal_data.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 02 Mar 1994 03:47:51 +0000 |
| parents | 64417bbbb128 |
| children | 80569adf45e4 |
comparison
equal
deleted
inserted
replaced
| 6132:ddf57829cf03 | 6133:752d4237f869 |
|---|---|
| 97 | 97 |
| 98 /* If nonzero, this is a warning delivered by malloc and not yet displayed. */ | 98 /* If nonzero, this is a warning delivered by malloc and not yet displayed. */ |
| 99 char *pending_malloc_warning; | 99 char *pending_malloc_warning; |
| 100 | 100 |
| 101 /* Pre-computed signal argument for use when memory is exhausted. */ | 101 /* Pre-computed signal argument for use when memory is exhausted. */ |
| 102 static Lisp_Object memory_signal_data; | 102 Lisp_Object memory_signal_data; |
| 103 | 103 |
| 104 /* Maximum amount of C stack to save when a GC happens. */ | 104 /* Maximum amount of C stack to save when a GC happens. */ |
| 105 | 105 |
| 106 #ifndef MAX_SAVE_STACK | 106 #ifndef MAX_SAVE_STACK |
| 107 #define MAX_SAVE_STACK 16000 | 107 #define MAX_SAVE_STACK 16000 |
| 2222 which includes both saved text and other data."); | 2222 which includes both saved text and other data."); |
| 2223 undo_strong_limit = 30000; | 2223 undo_strong_limit = 30000; |
| 2224 | 2224 |
| 2225 /* We build this in advance because if we wait until we need it, we might | 2225 /* We build this in advance because if we wait until we need it, we might |
| 2226 not be able to allocate the memory to hold it. */ | 2226 not be able to allocate the memory to hold it. */ |
| 2227 memory_signal_data = Fcons (build_string ("Memory exhausted"), Qnil); | 2227 memory_signal_data |
| 2228 = Fcons (Qerror, Fcons (build_string ("Memory exhausted"), Qnil)); | |
| 2228 staticpro (&memory_signal_data); | 2229 staticpro (&memory_signal_data); |
| 2229 | 2230 |
| 2230 defsubr (&Scons); | 2231 defsubr (&Scons); |
| 2231 defsubr (&Slist); | 2232 defsubr (&Slist); |
| 2232 defsubr (&Svector); | 2233 defsubr (&Svector); |
