Mercurial > emacs
comparison src/xfns.c @ 12546:f4fb791df099
(Fx_list_fonts): Don't free thisinfo if it is 0.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 17 Jul 1995 22:25:39 +0000 |
| parents | a5cfab57f3e5 |
| children | ca170048a679 |
comparison
equal
deleted
inserted
replaced
| 12545:ccc20d466150 | 12546:f4fb791df099 |
|---|---|
| 3237 XSTRING (XCONS (tem)->car)->data); | 3237 XSTRING (XCONS (tem)->car)->data); |
| 3238 | 3238 |
| 3239 if (thisinfo && same_size_fonts (thisinfo, size_ref)) | 3239 if (thisinfo && same_size_fonts (thisinfo, size_ref)) |
| 3240 newlist = Fcons (XCONS (tem)->car, newlist); | 3240 newlist = Fcons (XCONS (tem)->car, newlist); |
| 3241 | 3241 |
| 3242 XFreeFont (FRAME_X_DISPLAY (f), thisinfo); | 3242 if (thisinfo != 0) |
| 3243 XFreeFont (FRAME_X_DISPLAY (f), thisinfo); | |
| 3243 } | 3244 } |
| 3244 | 3245 |
| 3245 UNBLOCK_INPUT; | 3246 UNBLOCK_INPUT; |
| 3246 | 3247 |
| 3247 return newlist; | 3248 return newlist; |