diff options
| author | Po Lu <luangruo@yahoo.com> | 2024-03-30 08:58:59 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2024-03-30 08:58:59 +0800 |
| commit | bfbddf65245e179ef25c3b9b2699515b2d33ecca (patch) | |
| tree | bf7b3a0bcdd5ca54038380258998b4597e80d488 | |
| parent | 717e7edc2ac1e4e04019319da19c5386077dfbea (diff) | |
| download | emacs-bfbddf65245e179ef25c3b9b2699515b2d33ecca.tar.gz | |
Fix building the SFNT font driver
* src/sfntfont.c (sfntfont_list, sfntfont_list_family): Update
calls to Fsort for the new calling convention.
| -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. */ |