(xfont_list_family): Return a list of symbols, not

strings.
2008-08-06 12:20:28 +00:00
parent e83eedbf8d
commit 29428bb856
2 changed files with 7 additions and 2 deletions
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-08-06  Kenichi Handa  <handa@m17n.org>
+
+	* xfont.c (xfont_list_family): Return a list of symbols, not
+	strings.
+
 2008-08-06  Andreas Schwab  <schwab@suse.de>

 	* config.in: Regenerate.
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -473,8 +473,8 @@ xfont_list_family (frame)
 	continue;
      last_len = p1 - p0;
      last_family = p0;
-      family = make_unibyte_string (p0, last_len);
-      if (NILP (Fassoc_string (family, list, Qt)))
+      family = font_intern_prop (p0, last_len, 1);
+      if (NILP (assq_no_quit (family, list)))
 	list = Fcons (family, list);
    }