Make haikufont_list_family actually work

* haikufont.c (haikufont_list_family): Intern returned font
families.

diff --git a/src/haikufont.c b/src/haikufont.c
index ebff619287df56a2e7faecb7b3542915b3f7c444..e9e788e8e866a89ef11f9bb528a9d645731d7511 100644 (file)
--- a/src/haikufont.c
+++ b/src/haikufont.c
@@ -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);