From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 13 Dec 2008 15:39:48 +0000 (+0000)
Subject: (free_font_driver_list): Implement missing function.
X-Git-Tag: emacs-pretest-23.0.90~1106
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ed98482b85cef52f4ed901c44bef723206c215c;p=emacs.git

(free_font_driver_list): Implement missing function.
---

diff --git a/src/font.c b/src/font.c
index 10e3483462f..fbfcf4b2496 100644
--- a/src/font.c
+++ b/src/font.c
@@ -3506,6 +3506,20 @@ register_font_driver (driver, f)
     num_font_drivers++;
 }
 
+void
+free_font_driver_list (f)
+     FRAME_PTR f;
+{
+  struct font_driver_list *list, *next;
+
+  for (list = f->font_driver_list; list; list = next)
+    {
+      next = list->next;
+      xfree (list);
+    }
+  f->font_driver_list = NULL;
+}
+
 
 /* Make the frame F use font backends listed in NEW_DRIVERS (list of
    symbols, e.g. xft, x).  If NEW_DRIVERS is t, make F use all