(xfont_list_pattern): Free names returned from XListFonts.

diff --git a/src/xfont.c b/src/xfont.c
index 8483ae5..f843124 100644 (file)
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -290,6 +290,7 @@ xfont_list_pattern (frame, display, pattern)
                  || XINT (AREF (entity, FONT_AVGWIDTH_INDEX)) > 0))
            list = Fcons (entity, list);
        }
+      XFreeFontNames (names);
     }
 
   x_uncatch_errors ();