Mirrors
/
emacs
mirror of git://git.sv.gnu.org/emacs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix building the SFNT font driver 

* src/sfntfont.c (sfntfont_list, sfntfont_list_family): Update
calls to Fsort for the new calling convention.
scratch/comp-branch-optim
Po Lu 2024-03-30 08:58:59 +08:00
parent 717e7edc2a
commit bfbddf6524
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/sfntfont.c
View File

@ -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. */