diff src/font-mgr.c @ 4801:591091481f20

Merge changeset #b828e06dbe38 with tip
author Didier Verna <didier@xemacs.org>
date Wed, 06 Jan 2010 13:56:38 +0100
parents ca99a807b025
children 0d3ccd5a2509
line wrap: on
line diff
--- a/src/font-mgr.c	Wed Jan 06 13:48:25 2010 +0100
+++ b/src/font-mgr.c	Wed Jan 06 13:56:38 2010 +0100
@@ -260,8 +260,13 @@
 */
       (pattern))
 {
+  FcChar8 *name;
+  Lisp_Object result;
   CHECK_FCPATTERN(pattern);
-  return build_fcapi_string (FcNameUnparse (XFCPATTERN_PTR (pattern)));
+  name = FcNameUnparse (XFCPATTERN_PTR (pattern));
+  result = build_fcapi_string (name);
+  xfree (name, FcChar8 *);
+  return result;
 }
 
 DEFUN("fc-pattern-duplicate", Ffc_pattern_duplicate, 1, 1, 0, /*