mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(Fx_list_fonts): Avoid confused increment of info.

Browse source
This commit is contained in:
Karl Heuer 1994-03-02 05:48:00 +00:00
parent 048822963e
commit 74712156d6
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/xfns.c
View file

@ -2582,15 +2582,17 @@ fonts), even if they match PATTERN and FACE.")
tail = &list;
for (i = 0; i < num_fonts; i++)
{
XFontStruct *thisinfo;
#ifdef BROKEN_XLISTFONTSWITHINFO
BLOCK_INPUT;
info = XLoadQueryFont (x_current_display, names[i]);
thisinfo = XLoadQueryFont (x_current_display, names[i]);
UNBLOCK_INPUT;
#else
info = &info[i];
thisinfo = &info[i];
#endif
if (info && (! size_ref
|| same_size_fonts (info, size_ref)))
if (thisinfo && (! size_ref
|| same_size_fonts (thisinfo, size_ref)))
{
*tail = Fcons (build_string (names[i]), Qnil);
tail = &XCONS (*tail)->cdr;