Mercurial > hg > xemacs-beta
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 |