comparison src/extents.c @ 327:03446687b7cc r21-0-61

Import from CVS: tag r21-0-61
author cvs
date Mon, 13 Aug 2007 10:48:16 +0200
parents 70ad99077275
children 7c94d56991e1
comparison
equal deleted inserted replaced
326:e2671bc7f66a 327:03446687b7cc
4904 Lisp_Object layout_obj) 4904 Lisp_Object layout_obj)
4905 { 4905 {
4906 EXTENT extent = decode_extent (extent_obj, DE_MUST_HAVE_BUFFER); 4906 EXTENT extent = decode_extent (extent_obj, DE_MUST_HAVE_BUFFER);
4907 glyph_layout layout = symbol_to_glyph_layout (layout_obj); 4907 glyph_layout layout = symbol_to_glyph_layout (layout_obj);
4908 4908
4909 /* Make sure we've actually been given a glyph or it's nil (meaning 4909 /* Make sure we've actually been given a valid glyph or it's nil
4910 we're deleting a glyph from an extent). */ 4910 (meaning we're deleting a glyph from an extent). */
4911 if (!NILP (glyph)) 4911 if (!NILP (glyph))
4912 CHECK_GLYPH (glyph); 4912 CHECK_BUFFER_GLYPH (glyph);
4913 4913
4914 set_extent_glyph (extent, glyph, endp, layout); 4914 set_extent_glyph (extent, glyph, endp, layout);
4915 return glyph; 4915 return glyph;
4916 } 4916 }
4917 4917