diff options
| -rw-r--r-- | src/sfntfont.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/sfntfont.c b/src/sfntfont.c index 3be770f650e..fb3feaeaf79 100644 --- 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. */ |