1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 23:31:55 -08:00

(mark_glyph_matrix): Mark strings only.

This commit is contained in:
Gerd Moellmann 1999-08-23 00:11:34 +00:00
parent d9138d5de0
commit 3770920e08

View file

@ -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;
}