From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Apr 1998 21:25:55 +0000 (+0000)
Subject: (Fcommand_execute): Truncate command-history here.
X-Git-Tag: emacs-20.3~1350
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f438538138a524421eefdd00a4591037a70c138e;p=emacs.git

(Fcommand_execute): Truncate command-history here.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 9c56699d7e4..c756ae7cb92 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -488,6 +488,8 @@ Lisp_Object Fthis_command_keys ();
 Lisp_Object Qextended_command_history;
 EMACS_TIME timer_check ();
 
+extern Lisp_Object Vhistory_length;
+
 extern char *x_get_keysym_name ();
 
 static void record_menu_key ();
@@ -7474,13 +7476,24 @@ a special event, so ignore the prefix argument and don't clear it.")
 	 other sorts of commands, call-interactively takes care of
 	 this.  */
       if (!NILP (record_flag))
-	Vcommand_history
-	  = Fcons (Fcons (Qexecute_kbd_macro,
-			  Fcons (final, Fcons (prefixarg, Qnil))),
-		   Vcommand_history);
+	{
+	  Vcommand_history
+	    = Fcons (Fcons (Qexecute_kbd_macro,
+			    Fcons (final, Fcons (prefixarg, Qnil))),
+		     Vcommand_history);
+
+	  /* 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;
+	    }
+	}
 
       return Fexecute_kbd_macro (final, prefixarg);
     }
+
   if (CONSP (final) || SUBRP (final) || COMPILEDP (final))
     {
       backtrace.next = backtrace_list;