Mercurial > emacs

changeset 21680:c744d468bfb6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fgarbage_collect): Don't truncate command-history here.
author Richard M. Stallman <rms@gnu.org>
date Mon, 20 Apr 1998 17:04:16 +0000
parents 11cba7297255
children 11eafe90b842
files src/alloc.c
diffstat 1 files changed, 1 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Mon Apr 20 16:40:11 1998 +0000
+++ b/src/alloc.c	Mon Apr 20 17:04:16 1998 +0000
@@ -55,8 +55,6 @@
 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 @@
   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;