procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/character.c (lisp_string_width): Add missing type checks.

Browse source
This commit is contained in:
Philipp Stephani 2021-05-27 12:44:09 +02:00
parent c82afdcc88
commit 501296f994
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/character.c
View file

@ -394,10 +394,14 @@ 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 = AREF (font_info, 11);
if (font_info <= 0)
font_width = AREF (font_info, 10);
}
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);
}
}
thiswidth = (double) pixelwidth / font_width + 0.5;
chars = end - i;