emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Eli Zaretskii
Subject: master b8e8f13: * src/character.c (lisp_string_width): Fix last change.
Date: Thu, 27 May 2021 08:29:40 -0400 (EDT)

branch: master
commit b8e8f1338389dfe4c057e4ead19803b6731f6be8
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    * src/character.c (lisp_string_width): Fix last change.
---
 src/character.c | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/src/character.c b/src/character.c
index b16c9fd..b9a5d91 100644
--- 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;



reply via email to

[Prev in Thread] Current Thread [Next in Thread]