From: Po Lu <luangruo@yahoo.com>
Date: Wed, 9 Feb 2022 05:09:24 +0000 (+0000)
Subject: Make haikufont_list_family actually work
X-Git-Tag: emacs-29.0.90~2415
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=11ff76153e012cf76690568cf82b9a049c40e949;p=emacs.git

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 ebff619287d..e9e788e8e86 100644
--- 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);