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

1 files changed, 1 insertions, 1 deletions

diff --git a/src/font.c b/src/font.c
index 9a0e621d95f..349862b6c2b 100644
--- 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);