Mercurial > emacs

changeset 88939:13e20ef7c935

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font_name_registry, choose_face_font): Delete unused vars. (try_font_list): Declare an arg.
author Dave Love <fx@gnu.org>
date Tue, 30 Jul 2002 11:38:05 +0000
parents 639d0c1fb10e
children 225e8ce5246d
files src/xfaces.c
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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;