From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 20 Apr 1998 17:04:16 +0000 (+0000)
Subject: (Fgarbage_collect): Don't truncate command-history here.
X-Git-Tag: emacs-20.3~1396
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4929a8780a8d6a475e7b0294dc4eb32fb6a31c07;p=emacs.git

(Fgarbage_collect): Don't truncate command-history here.
---

diff --git a/src/alloc.c b/src/alloc.c
index 6948ff1a3d8..b41af98ac4f 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -55,8 +55,6 @@ extern __malloc_size_t _bytes_used;
 extern int __malloc_extra_blocks;
 #endif /* !defined(DOUG_LEA_MALLOC) */
 
-extern Lisp_Object Vhistory_length;
-
 #define max(A,B) ((A) > (B) ? (A) : (B))
 #define min(A,B) ((A) < (B) ? (A) : (B))
 
@@ -1728,15 +1726,7 @@ 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.  */
-  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.  */
+  /* Don't keep undo information around forever.  */
   {
     register struct buffer *nextb = all_buffers;