(mark_kboards): Move to keyboard.c.

2 files changed, 26 insertions, 34 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index bd4ce39e3eb..08b9ec38928 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,7 +1,27 @@
+2003-06-15  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* termhooks.h (EVENT_INIT): New macro.
+
+	* keyboard.c (mark_kboards): Move from alloc.c.  Mark kbd_buffer.
+
+	* alloc.c (mark_kboards): Move to keyboard.c.
+
+	* keyboard.c (record_asynch_buffer_change, read_avail_input):
+	* xterm.c (x_dispatch_event):
+	* xmenu.c (find_and_call_menu_selection):
+	* xdisp.c (handle_tool_bar_click):
+	* w32menu.c (menubar_selection_callback):
+	* sysdep.c (kbd_input_ast, read_input_waiting):
+	* msdos.c (dos_rawgetc):
+	* macterm.c (mac_check_for_quit_char):
+	* macmenu.c (menubar_selection_callback):
+	* gtkutil.c (xg_tool_bar_callback): Don't pass uninitialized
+	data to kbd_buffer_store_event.
+
 2003-06-15  Kim F. Storm  <storm@cua.dk>
 
 	* xdisp.c (x_fix_overlapping_area): Always use area relative X
-	to fix redisplay problem with tall characters (such as ,AC(B).  
+	to fix redisplay problem with tall characters (such as ,AC(B).
 
 2003-06-13  Kai Gro,A_(Bjohann  <kai.grossjohann@gmx.net>
 
@@ -15,8 +35,8 @@
 
 	* alloca.c (alloca): Declare arg as size_t.
 
-	* sysdep.c: Remove redundant include of unistd.h, stdlib.h.  Use
-	HAVE_DECL_SYS_SIGLIST, not SYS_SIGLIST_DECLARED.
+	* sysdep.c: Remove redundant include of unistd.h, stdlib.h.
+	Use HAVE_DECL_SYS_SIGLIST, not SYS_SIGLIST_DECLARED.
 
 2003-06-11  Dave Love  <fx@gnu.org>
 
@@ -55,8 +75,8 @@
 	Changes to merge with gnulib version and be consistent with the
 	autoconf test:
 
-	* getloadavg.c: Set NLIST_STRUCT from HAVE_NLIST_H.  Use
-	HAVE_STRUCT_NLIST_N_UN_N_NAME, not NLIST_NAME_UNION.
+	* getloadavg.c: Set NLIST_STRUCT from HAVE_NLIST_H.
+	Use HAVE_STRUCT_NLIST_N_UN_N_NAME, not NLIST_NAME_UNION.
 	[HAVE_LOCALE_H]: Include locale.h.
 	(getloadavg) [HAVE_SETLOCALE]: Run sscanf in C locale.
 
diff --git a/src/alloc.c b/src/alloc.c
index 391d63691c6..53513a722b9 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -249,7 +249,7 @@ Lisp_Object Vgc_elapsed;	/* accumulated elapsed time in GC  */
 EMACS_INT gcs_done;		/* accumulated GCs  */
 
 static void mark_buffer P_ ((Lisp_Object));
-static void mark_kboards P_ ((void));
+extern void mark_kboards P_ ((void));
 static void gc_sweep P_ ((void));
 static void mark_glyph_matrix P_ ((struct glyph_matrix *));
 static void mark_face_cache P_ ((struct face_cache *));
@@ -4964,34 +4964,6 @@ mark_buffer (buf)
 }
 
 
-/* Mark the pointers in the kboard objects.  */
-
-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->Voverriding_terminal_local_map);
-      mark_object (&kb->Vlast_command);
-      mark_object (&kb->Vreal_last_command);
-      mark_object (&kb->Vprefix_arg);
-      mark_object (&kb->Vlast_prefix_arg);
-      mark_object (&kb->kbd_queue);
-      mark_object (&kb->defining_kbd_macro);
-      mark_object (&kb->Vlast_kbd_macro);
-      mark_object (&kb->Vsystem_key_alist);
-      mark_object (&kb->system_key_syms);
-      mark_object (&kb->Vdefault_minibuffer_frame);
-      mark_object (&kb->echo_string);
-    }
-}
-
-
 /* Value is non-zero if OBJ will survive the current GC because it's
    either marked or does not need to be marked to survive.  */