(Ffont_shape_text): Fix setting of `to' field of glyphs.

diff --git a/src/font.c b/src/font.c
index 9a0e621d95f56378c465b47f4b210942d351edc5..349862b6c2b4fbf57c8cf23dc267080e131c3c34 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -3687,7 +3687,7 @@ FONT-OBJECT.  */)
              Lisp_Object g = LGSTRING_GLYPH (gstring, i);
 
              LGLYPH_SET_FROM (g, LGLYPH_FROM (g) - this_from);
-             LGLYPH_SET_TO (g, LGLYPH_TO (g) - this_to);
+             LGLYPH_SET_TO (g, LGLYPH_TO (g) - this_from);
              LGSTRING_SET_GLYPH (gstr, i - k, LGSTRING_GLYPH (gstring, i));
            }
          from = make_number (start + this_from);