Commit a49d705d authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(Finternal_char_font): Use font_get_name, not

Ffont_xlfd_name.
parent f63d54dc
...@@ -2073,7 +2073,7 @@ DEFUN ("internal-char-font", Finternal_char_font, Sinternal_char_font, 1, 2, 0, ...@@ -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); Lisp_Object font_object = AREF (rfont_def, 4);
struct font *font = XSAVE_VALUE (font_object)->pointer; struct font *font = XSAVE_VALUE (font_object)->pointer;
unsigned code = font->driver->encode_char (font, c); 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) if (code == FONT_INVALID_CODE)
return Fcons (fontname, Qnil); return Fcons (fontname, Qnil);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment