Fix building the SFNT font driver

* src/sfntfont.c (sfntfont_list, sfntfont_list_family): Update
calls to Fsort for the new calling convention.

(cherry picked from commit bfbddf65245e179ef25c3b9b2699515b2d33ecca)

diff --git a/src/sfntfont.c b/src/sfntfont.c
index 3be770f650edcf7590fad1f43f5292e9cf70e249..fb3feaeaf79162f5606e066c59c4c295a0d26853 100644 (file)
--- a/src/sfntfont.c
+++ b/src/sfntfont.c
@@ -2029,7 +2029,7 @@ sfntfont_list (struct frame *f, Lisp_Object font_spec)
      caller) ordered first.  */
 
   XSETSUBR (compare_font_entities, &Scompare_font_entities.s);
-  matching = Fsort (matching, compare_font_entities);
+  matching = CALLN (Fsort, matching, compare_font_entities);
   return matching;
 }
 
@@ -3779,7 +3779,7 @@ sfntfont_list_family (struct frame *f)
     families = Fcons (desc->family, families);
 
   /* Sort families in preparation for removing duplicates.  */
-  families = Fsort (families, Qstring_lessp);
+  families = CALLN (Fsort, families, Qstring_lessp);
 
   /* Remove each duplicate within families.  */