# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1229306260 0
# Node ID e0aa0e328261108687556df9a691ce478c834460
# Parent  0e8afcdd9ee4b4e9e72332b3910b5e08b6767d55
(xftfont_open): Free Xft font pattern if XftFontOpenPattern fails.

diff -r 0e8afcdd9ee4 -r e0aa0e328261 src/xftfont.c
--- a/src/xftfont.c	Mon Dec 15 01:57:19 2008 +0000
+++ b/src/xftfont.c	Mon Dec 15 01:57:40 2008 +0000
@@ -279,7 +279,10 @@
   UNBLOCK_INPUT;
 
   if (! xftfont)
-    return Qnil;
+    {
+      XftPatternDestroy (match);
+      return Qnil;
+    }
   /* We should not destroy PAT here because it is kept in XFTFONT and
      destroyed automatically when XFTFONT is closed.  */
   font_object = font_make_object (VECSIZE (struct xftfont_info), entity, size);