diff --git a/src/ChangeLog b/src/ChangeLog
index ba1bd03265b..63e23749374 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -3,6 +3,7 @@
 	* font.c (font_unparse_xlfd): Don't mix pointers to variables with
 	pointers to constants.
 	(font_parse_fcname): Remove unused vars.
+	(font_delete_unmatched): Now static.
 
 	* fns.c (require_nesting_list, require_unwind): Now static.
 	(Ffillarray): Rename locals to avoid shadowing.
diff --git a/src/font.c b/src/font.c
index 16812255e87..25e2968df7f 100644
--- a/src/font.c
+++ b/src/font.c
@@ -2600,7 +2600,7 @@ static Lisp_Object scratch_font_spec, scratch_font_prefer;
      (2) doesn't match with any regexps in Vface_ignored_fonts (if non-nil).
 */
 
-Lisp_Object
+static Lisp_Object
 font_delete_unmatched (Lisp_Object vec, Lisp_Object spec, int size)
 {
   Lisp_Object entity, val;