From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 7 Nov 1996 21:14:18 +0000 (+0000)
Subject: (Fgarbage_collect): Use Vhistory_length for truncating Vcommand_history.
X-Git-Tag: emacs-20.1~3406
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f936def561bba7b7f6db9e1d51a1051f900c0db;p=emacs.git

(Fgarbage_collect): Use Vhistory_length for truncating Vcommand_history.
---

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.  */
   {