[Emacs-diffs] Changes to emacs/src/alloc.c

[Richard M . Stallman]

Index: emacs/src/alloc.c
diff -c emacs/src/alloc.c:1.368 emacs/src/alloc.c:1.369
*** emacs/src/alloc.c:1.368     Wed Apr 20 07:50:08 2005
--- emacs/src/alloc.c   Sat May 14 14:07:03 2005
***************
*** 534,539 ****
--- 534,545 ----
      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,6083 ****
--- 6084,6090 ----
    DEFVAR_INT ("gcs-done", &gcs_done,
              doc: /* Accumulated number of garbage collections done.  */);
  
+   defsubr (&Smemory_full_p);
    defsubr (&Scons);
    defsubr (&Slist);
    defsubr (&Svector);