diff src/alloc.c @ 83306:8b66fddd72c5

Merged from [e-mail]--gnu-2005 (patch 307-312) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-307 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-308 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-309 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-310 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-311 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-312 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-346

--- a/src/alloc.c	Sat May 14 01:56:59 2005 +0000
+++ b/src/alloc.c	Mon May 16 15:49:27 2005 +0000
@@ -535,6 +535,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.  */
 
@@ -6080,6 +6086,7 @@
   DEFVAR_INT ("gcs-done", &gcs_done,
 	      doc: /* Accumulated number of garbage collections done.  */);
 
+  defsubr (&Smemory_full_p);
   defsubr (&Scons);
   defsubr (&Slist);
   defsubr (&Svector);