Mercurial > emacs

diff src/font.c @ 109493:f69d90096f33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
font.c (Ffont_shape_gstring): Terminate GSTRING by nil if the number of glyphs gets smaller than the original length.
author Kenichi Handa <handa@etlken>
date Mon, 26 Jul 2010 13:28:02 +0900
parents 1cbe0a6dbbc2
children 197e874deb67
line wrap: on
line diff
--- a/src/font.c	Fri Jul 23 15:50:31 2010 +0900
+++ b/src/font.c	Mon Jul 26 13:28:02 2010 +0900
@@ -4492,6 +4492,8 @@
     }
   if (i == 3 || XINT (n) == 0)
     return Qnil;
+  if (XINT (n) < LGSTRING_GLYPH_LEN (gstring))
+    LGSTRING_SET_GLYPH (gstring, XINT (n), Qnil);
 
   glyph = LGSTRING_GLYPH (gstring, 0);
   from = LGLYPH_FROM (glyph);