(Fput_char_attribute): Forgot to `CHECK_CHAR'.

[chise/xemacs-chise.git-] / src / objects-tty.c

diff --git a/src/objects-tty.c b/src/objects-tty.c
index 909542e..a7dc78c 100644 (file)
--- a/src/objects-tty.c
+++ b/src/objects-tty.c
@@ -243,7 +243,7 @@ tty_initialize_font_instance (struct Lisp_Font_Instance *f, Lisp_Object name,
   FONT_INSTANCE_TTY_CHARSET (f) = charset;
 #ifdef MULE
   if (CHARSETP (charset))
-    f->width = XCHARSET_COLUMNS (charset);
+    f->width = CHARSET_COLUMNS (XCHARSET (charset));
   else
 #endif
     f->width = 1;