From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 15 Dec 2008 01:57:40 +0000 (+0000)
Subject: (xftfont_open): Free Xft font pattern if XftFontOpenPattern fails.
X-Git-Tag: emacs-pretest-23.0.90~1088
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c629bf654b2d1c137f1e503b9a58cd75af9199b;p=emacs.git

(xftfont_open): Free Xft font pattern if XftFontOpenPattern fails.
---

diff --git a/src/xftfont.c b/src/xftfont.c
index 8eadd060765..21c17a06aa2 100644
--- a/src/xftfont.c
+++ b/src/xftfont.c
@@ -279,7 +279,10 @@ xftfont_open (f, entity, pixel_size)
   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);