(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.  */