Mercurial > emacs
comparison src/xfns.c @ 6143:45bdd0e4b6ea
(Fx_list_fonts): Avoid confused increment of info.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 02 Mar 1994 05:48:00 +0000 |
parents | 0021cbdc591b |
children | c6cafb1168b3 |
comparison
equal
deleted
inserted
replaced
6142:2dbc79d01191 | 6143:45bdd0e4b6ea |
---|---|
2580 int i; | 2580 int i; |
2581 | 2581 |
2582 tail = &list; | 2582 tail = &list; |
2583 for (i = 0; i < num_fonts; i++) | 2583 for (i = 0; i < num_fonts; i++) |
2584 { | 2584 { |
2585 XFontStruct *thisinfo; | |
2586 | |
2585 #ifdef BROKEN_XLISTFONTSWITHINFO | 2587 #ifdef BROKEN_XLISTFONTSWITHINFO |
2586 BLOCK_INPUT; | 2588 BLOCK_INPUT; |
2587 info = XLoadQueryFont (x_current_display, names[i]); | 2589 thisinfo = XLoadQueryFont (x_current_display, names[i]); |
2588 UNBLOCK_INPUT; | 2590 UNBLOCK_INPUT; |
2589 #else | 2591 #else |
2590 info = &info[i]; | 2592 thisinfo = &info[i]; |
2591 #endif | 2593 #endif |
2592 if (info && (! size_ref | 2594 if (thisinfo && (! size_ref |
2593 || same_size_fonts (info, size_ref))) | 2595 || same_size_fonts (thisinfo, size_ref))) |
2594 { | 2596 { |
2595 *tail = Fcons (build_string (names[i]), Qnil); | 2597 *tail = Fcons (build_string (names[i]), Qnil); |
2596 tail = &XCONS (*tail)->cdr; | 2598 tail = &XCONS (*tail)->cdr; |
2597 } | 2599 } |
2598 } | 2600 } |