diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/src/alloc.c b/src/alloc.c index 86ecf5291c6..64aaa8acdfa 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -5989,28 +5989,6 @@ garbage_collect (void) garbage_collect_1 (&gcst); } -DEFUN ("garbage-collect-maybe", Fgarbage_collect_maybe, Sgarbage_collect_maybe, 1, 1, "", - doc: /* Call `garbage-collect' if enough allocation happened. -FACTOR determines what "enough" means here: -a FACTOR of N means to run the GC if more than 1/Nth of the allocations -needed to triger automatic allocation took place. */) - (Lisp_Object factor) -{ - CHECK_FIXNAT (factor); - EMACS_INT fact = XFIXNAT (factor); - byte_ct new_csgc = consing_since_gc * fact; - if (new_csgc / fact != consing_since_gc) - /* Overflow! */ - garbage_collect (); - else - { - consing_since_gc = new_csgc; - maybe_gc (); - consing_since_gc /= fact; - } - return Qnil; -} - 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 @@ -7411,7 +7389,6 @@ N should be nonnegative. */); defsubr (&Smake_finalizer); defsubr (&Spurecopy); defsubr (&Sgarbage_collect); - defsubr (&Sgarbage_collect_maybe); defsubr (&Smemory_info); defsubr (&Smemory_use_counts); defsubr (&Ssuspicious_object); |