# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1028029085 0
# Node ID 13e20ef7c935345de1033e1b1bb483ba7d2bb899
# Parent  639d0c1fb10ef6a796efd6f5667da31751a14fe8
(font_name_registry, choose_face_font): Delete unused
vars.
(try_font_list): Declare an arg.

diff -r 639d0c1fb10e -r 13e20ef7c935 src/xfaces.c
--- a/src/xfaces.c	Tue Jul 30 11:37:50 2002 +0000
+++ b/src/xfaces.c	Tue Jul 30 11:38:05 2002 +0000
@@ -2176,9 +2176,7 @@
 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 @@
 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 @@
      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;