* ftfont.c (ftfont_list): Remove unused local.

diff --git a/src/ChangeLog b/src/ChangeLog
index 6ad69b6..5ec2d88 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -3,6 +3,7 @@
        * ftfont.c (ftfont_resolve_generic_family): Fix pointer signedness.
        (ftfont_otf_capability, ftfont_shape): Omit decls if not needed.
        (OTF_TAG_SYM): Omit macro if not needed.
+       (ftfont_list): Remove unused local.
 
        * xfont.c (xfont_list_family): Mark var as initialized.
 

diff --git a/src/ftfont.c b/src/ftfont.c
index 5decec1..28042bb 100644 (file)
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -871,7 +871,6 @@ ftfont_list (Lisp_Object frame, Lisp_Object spec)
   FcObjectSet *objset = NULL;
   FcCharSet *charset;
   Lisp_Object chars = Qnil;
-  FcResult result;
   char otlayout[15];           /* For "otlayout:XXXX" */
   struct OpenTypeSpec *otspec = NULL;
   int spacing = -1;