# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 795232625 0
# Node ID 2d9bdf1ba3d1372c2aa58008d707d186fdede8dd
# Parent  f7c4ece024d50e0991ba8828b17aa21847f3891f
(mark_kboards): Renamed from mark_perdisplays.

diff -r f7c4ece024d5 -r 2d9bdf1ba3d1 src/alloc.c
--- a/src/alloc.c	Wed Mar 15 01:56:34 1995 +0000
+++ b/src/alloc.c	Wed Mar 15 01:57:05 1995 +0000
@@ -154,7 +154,7 @@
 /* Non-zero means ignore malloc warnings.  Set during initialization.  */
 int ignore_warnings;
 
-static void mark_object (), mark_buffer (), mark_perdisplays ();
+static void mark_object (), mark_buffer (), mark_kboards ();
 static void clear_marks (), gc_sweep ();
 static void compact_strings ();
 
@@ -1446,7 +1446,7 @@
 	    XMARK (backlist->args[i]);
 	  }
     }  
-  mark_perdisplays ();
+  mark_kboards ();
 
   gc_sweep ();
 
@@ -1763,7 +1763,7 @@
 	case Lisp_Misc_Boolfwd:
 	case Lisp_Misc_Objfwd:
 	case Lisp_Misc_Buffer_Objfwd:
-	case Lisp_Misc_Display_Objfwd:
+	case Lisp_Misc_Kboard_Objfwd:
 	  /* Don't bother with Lisp_Buffer_Objfwd,
 	     since all markable slots in current buffer marked anyway.  */
 	  /* Don't need to do Lisp_Objfwd, since the places they point
@@ -1868,18 +1868,18 @@
 }
 
 
-/* Mark the pointers in the perdisplay objects.  */
+/* Mark the pointers in the kboard objects.  */
 
 static void
-mark_perdisplays ()
+mark_kboards ()
 {
-  PERDISPLAY *perd;
-  for (perd = all_perdisplays; perd; perd = perd->next_perdisplay)
+  KBOARD *kb;
+  for (kb = all_kboards; kb; kb = kb->next_kboard)
     {
-      mark_object (&perd->prefix_factor);
-      mark_object (&perd->prefix_value);
-      mark_object (&perd->kbd_queue);
-      mark_object (&perd->Vlast_kbd_macro);
+      mark_object (&kb->prefix_factor);
+      mark_object (&kb->prefix_value);
+      mark_object (&kb->kbd_queue);
+      mark_object (&kb->Vlast_kbd_macro);
     }
 }