(fontset_font_pattern): Remove unused variable `family_registry'.

diff --git a/src/ChangeLog b/src/ChangeLog
index f55149f..ed69bfe 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -2,6 +2,9 @@
 
        * fns.c (copy_hash_table): Remove unused variable `v'.
 
+       * fontset.c (fontset_font_pattern): Remove unused variable
+       `family_registry'.
+
 2001-11-05  Richard M. Stallman  <rms@gnu.org>
 
        * m/news-risc.h (BROKEN_PROTOTYPES): Defined.

diff --git a/src/fontset.c b/src/fontset.c
index 647657e..22f6746 100644 (file)
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -534,7 +534,6 @@ fontset_font_pattern (f, id, c)
 {
   Lisp_Object fontset, elt;
   struct font_info *fontp;
-  Lisp_Object family_registry;
   
   elt = Qnil;
   if (fontset_id_valid_p (id))