Mercurial > emacs
changeset 51578:42f25a716cb8
(mark_kboards): Move to keyboard.c.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 15 Jun 2003 21:48:14 +0000 |
| parents | f624d43a48fb |
| children | 3b66e1910181 |
| files | src/alloc.c |
| diffstat | 1 files changed, 1 insertions(+), 29 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Sun Jun 15 21:46:53 2003 +0000 +++ b/src/alloc.c Sun Jun 15 21:48:14 2003 +0000 @@ -249,7 +249,7 @@ 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 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. */