From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 23:47:55 +0000 (+0000)
Subject: (mark_kboards): Mark the kbd macro and Vsystem_key_alist.
X-Git-Tag: emacs-19.34~4265
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b94daf1e9f99a4288002a582597c1332c8341320;p=emacs.git

(mark_kboards): Mark the kbd macro and Vsystem_key_alist.
---

diff --git a/src/alloc.c b/src/alloc.c
index 67731ea1b0d..f70cb90b6af 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1885,12 +1885,17 @@ static void
 mark_kboards ()
 {
   KBOARD *kb;
+  Lisp_Object *p;
   for (kb = all_kboards; kb; kb = kb->next_kboard)
     {
+      if (kb->kbd_macro_buffer)
+	for (p = kb->kbd_macro_buffer; p < kb->kbd_macro_ptr; p++)
+	  mark_object (p);
       mark_object (&kb->prefix_factor);
       mark_object (&kb->prefix_value);
       mark_object (&kb->kbd_queue);
       mark_object (&kb->Vlast_kbd_macro);
+      mark_object (&kb->Vsystem_key_alist);
     }
 }