From 0f936def561bba7b7f6db9e1d51a1051f900c0db Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 7 Nov 1996 21:14:18 +0000 Subject: [PATCH] (Fgarbage_collect): Use Vhistory_length for truncating Vcommand_history. --- src/alloc.c | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/src/alloc.c b/src/alloc.c index 7f3dbbec27f..ad7e6beb4a3 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -48,6 +48,8 @@ extern char *sbrk (); extern __malloc_size_t _bytes_used; extern int __malloc_extra_blocks; +extern Lisp_Object Vhistory_length; + #define max(A,B) ((A) > (B) ? (A) : (B)) #define min(A,B) ((A) < (B) ? (A) : (B)) @@ -1497,10 +1499,13 @@ Garbage collection happens automatically if you cons more than\n\ if (garbage_collection_messages) message1_nolog ("Garbage collecting..."); - /* Don't keep command history around forever */ - tem = Fnthcdr (make_number (30), Vcommand_history); - if (CONSP (tem)) - XCONS (tem)->cdr = Qnil; + /* Don't keep command history around forever. */ + if (NUMBERP (Vhistory_length) && XINT (Vhistory_length) > 0) + { + tem = Fnthcdr (Vhistory_length, Vcommand_history); + if (CONSP (tem)) + XCONS (tem)->cdr = Qnil; + } /* Likewise for undo information. */ { -- 2.39.2