diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-08-23 00:11:34 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-08-23 00:11:34 +0000 |
| commit | 3770920e08dcd4bf5a23ab07473f85a3dcf320aa (patch) | |
| tree | c7046ad71793a8f8ce0917cedbad6bd980d22d1c /src/alloc.c | |
| parent | d9138d5de0f3ffb08cfb1cb58efff3427f5736eb (diff) | |
(mark_glyph_matrix): Mark strings only.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/alloc.c b/src/alloc.c index 978c4240a28..571d6291c2b 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -2031,7 +2031,8 @@ clear_marks () } #endif -/* Mark Lisp objects in glyph matrix MATRIX. */ +/* Mark Lisp objects in glyph matrix MATRIX. Currently the + only interesting objects referenced from glyphs are strings. */ static void mark_glyph_matrix (matrix) @@ -2052,11 +2053,7 @@ mark_glyph_matrix (matrix) while (glyph < end_glyph) { - if (/* OBJECT Is zero for face extending glyphs, padding - spaces and such. */ - glyph->object - /* Marking the buffer itself should not be necessary. */ - && !BUFFERP (glyph->object)) + if (GC_STRINGP (glyph->object)) mark_object (&glyph->object); ++glyph; } |