* src/character.c (lisp_string_width): Fix last change.

diff --git a/src/character.c b/src/character.c
index b16c9fd6b8bf300361eb5cfbeebf53c064c5e1b3..b9a5d913e04211e7d01f2db39dcbbadae948b645 100644 (file)
--- a/src/character.c
+++ b/src/character.c
@@ -394,14 +394,10 @@ lisp_string_width (Lisp_Object string, ptrdiff_t from, ptrdiff_t to,
                                 SBYTES (default_font))))
                {
                  Lisp_Object font_info = Ffont_info (default_font, Qnil);
-                  font_width
-                    = check_integer_range (AREF (font_info, 11),
-                                           INT_MIN, INT_MAX);
-                  if (font_width <= 0)
-                    font_width
-                      = check_integer_range (AREF (font_info, 10),
-                                             INT_MIN, INT_MAX);
-                }
+                 font_width = XFIXNUM (AREF (font_info, 11));
+                 if (font_info <= 0)
+                   font_width = XFIXNUM (AREF (font_info, 10));
+               }
            }
          thiswidth = (double) pixelwidth / font_width + 0.5;
          chars = end - i;