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 }