Mercurial > emacs
changeset 25367:823e14641544
(mark_glyph_matrix): Mark strings only.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 23 Aug 1999 00:11:34 +0000 |
parents | 78de9d041747 |
children | f9949db6ca7d |
files | src/alloc.c |
diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Sun Aug 22 20:47:17 1999 +0000 +++ b/src/alloc.c Mon Aug 23 00:11:34 1999 +0000 @@ -2031,7 +2031,8 @@ } #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 @@ 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; }