From: Kenichi Handa <handa@m17n.org>
Date: Fri, 16 Jun 2006 12:13:36 +0000 (+0000)
Subject: (xfont_parse_name): Delete this function.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~889
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ce00b69d4e5bdb7448859ef698561a46119e773;p=emacs.git

(xfont_parse_name): Delete this function.
---

diff --git a/src/xfont.c b/src/xfont.c
index a32f84b756f..de27f996a5f 100644
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -238,7 +238,6 @@ xfont_registry_charsets (registry, encoding, repertory)
 }
 
 static Lisp_Object xfont_get_cache P_ ((Lisp_Object));
-static int xfont_parse_name P_ ((FRAME_PTR, char *, Lisp_Object));
 static Lisp_Object xfont_list P_ ((Lisp_Object, Lisp_Object));
 static Lisp_Object xfont_list_family P_ ((Lisp_Object));
 static struct font *xfont_open P_ ((FRAME_PTR, Lisp_Object, int));
@@ -257,7 +256,6 @@ struct font_driver xfont_driver =
   {
     (Lisp_Object) NULL,		/* Qx */
     xfont_get_cache,
-    xfont_parse_name,
     xfont_list,
     xfont_list_family,
     NULL,
@@ -282,23 +280,6 @@ xfont_get_cache (frame)
   return (dpyinfo->name_list_element);
 }
 
-static int
-xfont_parse_name (f, name, spec)
-     FRAME_PTR f;
-     char *name;
-     Lisp_Object spec;
-{
-  if (font_parse_xlfd (name, spec, 0) >= 0)
-    return 0;
-  name = xfont_query_font (FRAME_X_DISPLAY (f), name, spec);
-  if (name)
-    {
-      XFree (name);
-      return 0;
-    }
-  return -1;
-}
-
 extern Lisp_Object Vface_alternative_font_registry_alist;
 
 static Lisp_Object