From 8a4c9dc44eefeeebc211e1ab127b6d2c029e8446 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 14 May 2005 14:07:03 +0000 Subject: [PATCH] (Fmemory_full_p): New function. (syms_of_alloc): defsubr it. --- src/alloc.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/alloc.c b/src/alloc.c index fb352bd56d8..68f271a8c32 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -534,6 +534,12 @@ memory_full () Fsignal (Qnil, Vmemory_signal_data); } +DEFUN ("memory-full-p", Fmemory_full_p, Smemory_full_p, 0, 0, 0, + doc: /* t if memory is nearly full, nil otherwise. */) + () +{ + return (spare_memory ? Qnil : Qt); +} /* Called if we can't allocate relocatable space for a buffer. */ @@ -6078,6 +6084,7 @@ The time is in seconds as a floating point value. */); DEFVAR_INT ("gcs-done", &gcs_done, doc: /* Accumulated number of garbage collections done. */); + defsubr (&Smemory_full_p); defsubr (&Scons); defsubr (&Slist); defsubr (&Svector); -- 2.39.2