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);
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
