diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-02 03:47:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-02 03:47:51 +0000 |
| commit | cf3540e492c6210eae1e343b2851f1413721c3b9 (patch) | |
| tree | ae2dc0e10ea133a48cd13f1778e8e4c36724cfe2 /src/alloc.c | |
| parent | 9d58218c8209415442d99cdf3a69db96f932b682 (diff) | |
| download | emacs-cf3540e492c6210eae1e343b2851f1413721c3b9.tar.gz emacs-cf3540e492c6210eae1e343b2851f1413721c3b9.tar.bz2 emacs-cf3540e492c6210eae1e343b2851f1413721c3b9.zip | |
(memory_signal_data): No longer static.
(syms_of_alloc): Stick Qerror onto memory_signal_data.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index f19ca3fb24c..2ced2717cdc 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -99,7 +99,7 @@ int pureptr; char *pending_malloc_warning; /* Pre-computed signal argument for use when memory is exhausted. */ -static Lisp_Object memory_signal_data; +Lisp_Object memory_signal_data; /* Maximum amount of C stack to save when a GC happens. */ @@ -2224,7 +2224,8 @@ which includes both saved text and other data."); /* We build this in advance because if we wait until we need it, we might not be able to allocate the memory to hold it. */ - memory_signal_data = Fcons (build_string ("Memory exhausted"), Qnil); + memory_signal_data + = Fcons (Qerror, Fcons (build_string ("Memory exhausted"), Qnil)); staticpro (&memory_signal_data); defsubr (&Scons); |