From: Dave Love <fx@gnu.org>
Date: Tue, 30 Jul 2002 11:38:05 +0000 (+0000)
Subject: (font_name_registry, choose_face_font): Delete unused
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~492
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a55a1dc68373e63e270ca1a77877d9d3e71bf362;p=emacs.git

(font_name_registry, choose_face_font): Delete unused
vars.
(try_font_list): Declare an arg.
---

diff --git a/src/xfaces.c b/src/xfaces.c
index 705fce20486..eac3ee92c05 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -2176,9 +2176,7 @@ Lisp_Object
 font_name_registry (fontname)
      Lisp_Object fontname;
 {
-  Lisp_Object registry;
   struct font_name font;
-  char *p;
 
   font.name = LSTRDUPA (fontname);
   if (! split_font_name (NULL, &font, 0))
@@ -6123,7 +6121,7 @@ try_alternative_families (f, family, registry, fonts)
 static int
 try_font_list (f, pattern, family, registry, fonts)
      struct frame *f;
-     Lisp_Object family, registry;
+     Lisp_Object pattern, family, registry;
      struct font_name **fonts;
 {
   int nfonts = 0;
@@ -6196,9 +6194,7 @@ choose_face_font (f, attrs, font_spec)
      Lisp_Object *attrs;
      Lisp_Object font_spec;
 {
-  Lisp_Object val;
   Lisp_Object pattern, family, adstyle, registry;
-  Lisp_Object new_attrs[LFACE_VECTOR_SIZE];
   char *font_name = NULL;
   struct font_name *fonts;
   int nfonts;