aboutsummaryrefslogtreecommitdiffstats
path: root/src/xfns.c
diff options
context:
space:
mode:
authorRichard M. Stallman <[email protected]>1996-04-25 03:36:01 +0000
committerRichard M. Stallman <[email protected]>1996-04-25 03:36:01 +0000
commite74c43500e257f0bea26b5edd17bcf8d5fb85a62 (patch)
treee7491f6bd70bd0e661984f379d7559543c7af392 /src/xfns.c
parent6b091ffc22199ff99fa46c7ae9db8932c5098c8b (diff)
(Fx_list_fonts) [BROKEN_XLISTFONTSWITHINFO]:
Free the font, and the fontinfo too if we don't want it.
Diffstat (limited to 'src/xfns.c')
-rw-r--r--src/xfns.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/xfns.c b/src/xfns.c
index 36d164a45c..a141c69476 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3480,6 +3480,12 @@ even if they match PATTERN and FACE.")
UNBLOCK_INPUT;
keeper = thisinfo && same_size_fonts (thisinfo, size_ref);
+ BLOCK_INPUT;
+ if (thisinfo && ! keeper)
+ XFreeFont (FRAME_X_DISPLAY (f), thisinfo);
+ else if (thisinfo)
+ XFreeFontInfo (NULL, thisinfo, 1);
+ UNBLOCK_INPUT;
#else
keeper = same_size_fonts (&info[i], size_ref);
#endif