# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 935367094 0
# Node ID 823e1464154459294a7b74c1cf1429c944e485be
# Parent  78de9d041747fe6fb2066d963bf09e34f2b6fa7d
(mark_glyph_matrix): Mark strings only.

diff -r 78de9d041747 -r 823e14641544 src/alloc.c
--- 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;
 		}