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

[Richard M. Stallman]

Index: emacs/src/alloc.c
diff -c emacs/src/alloc.c:1.311 emacs/src/alloc.c:1.312
*** emacs/src/alloc.c:1.311     Sun Jul  6 19:12:21 2003
--- emacs/src/alloc.c   Mon Jul  7 16:39:40 2003
***************
*** 4255,4267 ****
  
  DEFUN ("garbage-collect", Fgarbage_collect, Sgarbage_collect, 0, 0, "",
         doc: /* Reclaim storage for Lisp objects no longer needed.
! Returns info on amount of space in use:
   ((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)
    (USED-MARKERS . FREE-MARKERS) USED-STRING-CHARS USED-VECTOR-SLOTS
    (USED-FLOATS . FREE-FLOATS) (USED-INTERVALS . FREE-INTERVALS)
    (USED-STRINGS . FREE-STRINGS))
! Garbage collection happens automatically if you cons more than
! `gc-cons-threshold' bytes of Lisp data since previous garbage collection.  */)
       ()
  {
    register struct specbinding *bind;
--- 4255,4269 ----
  
  DEFUN ("garbage-collect", Fgarbage_collect, Sgarbage_collect, 0, 0, "",
         doc: /* Reclaim storage for Lisp objects no longer needed.
! Garbage collection happens automatically if you cons more than
! `gc-cons-threshold' bytes of Lisp data since previous garbage collection.
! `garbage-collect' normally returns a list with info on amount of space in use:
   ((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)
    (USED-MARKERS . FREE-MARKERS) USED-STRING-CHARS USED-VECTOR-SLOTS
    (USED-FLOATS . FREE-FLOATS) (USED-INTERVALS . FREE-INTERVALS)
    (USED-STRINGS . FREE-STRINGS))
! However, if there was overflow in pure space, `garbage-collect'
! returns nil, because real GC can't be done.  */)
       ()
  {
    register struct specbinding *bind;