Mercurial > emacs
comparison src/alloc.c @ 11593:f5385353aae3
(mark_kboards): Mark the kbd macro and Vsystem_key_alist.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 25 Apr 1995 23:47:55 +0000 |
| parents | 35d5910b12b4 |
| children | 1ced2d67d411 |
comparison
equal
deleted
inserted
replaced
| 11592:030e5a06a38a | 11593:f5385353aae3 |
|---|---|
| 1883 | 1883 |
| 1884 static void | 1884 static void |
| 1885 mark_kboards () | 1885 mark_kboards () |
| 1886 { | 1886 { |
| 1887 KBOARD *kb; | 1887 KBOARD *kb; |
| 1888 Lisp_Object *p; | |
| 1888 for (kb = all_kboards; kb; kb = kb->next_kboard) | 1889 for (kb = all_kboards; kb; kb = kb->next_kboard) |
| 1889 { | 1890 { |
| 1891 if (kb->kbd_macro_buffer) | |
| 1892 for (p = kb->kbd_macro_buffer; p < kb->kbd_macro_ptr; p++) | |
| 1893 mark_object (p); | |
| 1890 mark_object (&kb->prefix_factor); | 1894 mark_object (&kb->prefix_factor); |
| 1891 mark_object (&kb->prefix_value); | 1895 mark_object (&kb->prefix_value); |
| 1892 mark_object (&kb->kbd_queue); | 1896 mark_object (&kb->kbd_queue); |
| 1893 mark_object (&kb->Vlast_kbd_macro); | 1897 mark_object (&kb->Vlast_kbd_macro); |
| 1898 mark_object (&kb->Vsystem_key_alist); | |
| 1894 } | 1899 } |
| 1895 } | 1900 } |
| 1896 | 1901 |
| 1897 /* Sweep: find all structures not marked, and free them. */ | 1902 /* Sweep: find all structures not marked, and free them. */ |
| 1898 | 1903 |