From: Kenichi Handa <handa@m17n.org>
Date: Mon, 19 Jun 2006 01:35:46 +0000 (+0000)
Subject: (Finternal_char_font): Use font_get_name, not
X-Git-Tag: emacs-pretest-23.0.90~8295^2~875
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a49d705d68e1e7d72d554ca3eb06168b58b03a93;p=emacs.git

(Finternal_char_font): Use font_get_name, not
Ffont_xlfd_name.
---

diff --git a/src/fontset.c b/src/fontset.c
index 1adc0e0cc19..7468eb3da17 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -2073,7 +2073,7 @@ DEFUN ("internal-char-font", Finternal_char_font, Sinternal_char_font, 1, 2, 0,
 	  Lisp_Object font_object = AREF (rfont_def, 4);
 	  struct font *font = XSAVE_VALUE (font_object)->pointer;
 	  unsigned code = font->driver->encode_char (font, c);
-	  Lisp_Object fontname = Ffont_xlfd_name (font_object);
+	  Lisp_Object fontname = font_get_name (font_object);
 
 	  if (code == FONT_INVALID_CODE)
 	    return Fcons (fontname, Qnil);