Mercurial > emacs
comparison src/alloc.c @ 25367:823e14641544
(mark_glyph_matrix): Mark strings only.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 23 Aug 1999 00:11:34 +0000 |
parents | fe92158a9e83 |
children | 4d553f7390dc |
comparison
equal
deleted
inserted
replaced
25366:78de9d041747 | 25367:823e14641544 |
---|---|
2029 } | 2029 } |
2030 } | 2030 } |
2031 } | 2031 } |
2032 #endif | 2032 #endif |
2033 | 2033 |
2034 /* Mark Lisp objects in glyph matrix MATRIX. */ | 2034 /* Mark Lisp objects in glyph matrix MATRIX. Currently the |
2035 only interesting objects referenced from glyphs are strings. */ | |
2035 | 2036 |
2036 static void | 2037 static void |
2037 mark_glyph_matrix (matrix) | 2038 mark_glyph_matrix (matrix) |
2038 struct glyph_matrix *matrix; | 2039 struct glyph_matrix *matrix; |
2039 { | 2040 { |
2050 struct glyph *glyph = row->glyphs[area]; | 2051 struct glyph *glyph = row->glyphs[area]; |
2051 struct glyph *end_glyph = glyph + row->used[area]; | 2052 struct glyph *end_glyph = glyph + row->used[area]; |
2052 | 2053 |
2053 while (glyph < end_glyph) | 2054 while (glyph < end_glyph) |
2054 { | 2055 { |
2055 if (/* OBJECT Is zero for face extending glyphs, padding | 2056 if (GC_STRINGP (glyph->object)) |
2056 spaces and such. */ | |
2057 glyph->object | |
2058 /* Marking the buffer itself should not be necessary. */ | |
2059 && !BUFFERP (glyph->object)) | |
2060 mark_object (&glyph->object); | 2057 mark_object (&glyph->object); |
2061 ++glyph; | 2058 ++glyph; |
2062 } | 2059 } |
2063 } | 2060 } |
2064 } | 2061 } |