comparison src/alloc.c @ 62335:401714f3f9de

(Fmemory_full_p): New function. (syms_of_alloc): defsubr it.

62334:f9dc4e8a41fe

     get infinite recursion trying to build the string.  */
  while (1)
    Fsignal (Qnil, Vmemory_signal_data);
}


/* Called if we can't allocate relocatable space for a buffer.  */

void
buffer_memory_full ()

	       doc: /* Accumulated time elapsed in garbage collections.
The time is in seconds as a floating point value.  */);
  DEFVAR_INT ("gcs-done", &gcs_done,
	      doc: /* Accumulated number of garbage collections done.  */);

  defsubr (&Scons);
  defsubr (&Slist);
  defsubr (&Svector);
  defsubr (&Smake_byte_code);
  defsubr (&Smake_list);

62335:401714f3f9de

     get infinite recursion trying to build the string.  */
  while (1)
    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.  */

void
buffer_memory_full ()

	       doc: /* Accumulated time elapsed in garbage collections.
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);
  defsubr (&Smake_byte_code);
  defsubr (&Smake_list);