# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1116079623 0
# Node ID 401714f3f9def831bc6ce518627acd35480377eb
# Parent  f9dc4e8a41feb222273ed69b8aaf4ce5b0a6bb47
(Fmemory_full_p): New function.
(syms_of_alloc): defsubr it.

diff -r f9dc4e8a41fe -r 401714f3f9de src/alloc.c
--- a/src/alloc.c	Sat May 14 14:06:33 2005 +0000
+++ b/src/alloc.c	Sat May 14 14:07:03 2005 +0000
@@ -534,6 +534,12 @@
     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 @@
   DEFVAR_INT ("gcs-done", &gcs_done,
 	      doc: /* Accumulated number of garbage collections done.  */);
 
+  defsubr (&Smemory_full_p);
   defsubr (&Scons);
   defsubr (&Slist);
   defsubr (&Svector);