(fontset_font_pattern): Remove unused variable `family_registry'.

2 files changed, 3 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index f55149f7bd1..ed69bfea1aa 100644
--- 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 647657e389c..22f67468b0d 100644
--- 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))