procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make haikufont_list_family actually work

Browse source 
* haikufont.c (haikufont_list_family): Intern returned font
families.
This commit is contained in:
Po Lu 2022-02-09 05:09:24 +00:00
parent f96eee4e06
commit 11ff76153e
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/haikufont.c
View file

@ -1043,8 +1043,7 @@ haikufont_list_family (struct frame *f)
for (idx = 0; idx < length; ++idx)
{
if (styles[idx][0])
list = Fcons (build_string_from_utf8 ((char *) &styles[idx]),
list);
list = Fcons (intern ((char *) &styles[idx]), list);
}
free (styles);