diff --git a/src/ChangeLog b/src/ChangeLog
index 6ad69b657b8..5ec2d88ea90 100644
--- 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 5decec16825..28042bb9c66 100644
--- 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;