(Fput_char_attribute): Forgot to `CHECK_CHAR'.

diff --git a/src/mule-charset.c b/src/mule-charset.c
index b83166d..0d6237b 100644 (file)
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -529,6 +529,7 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 {
   Lisp_Object ccs;
 
+  CHECK_CHAR (character);
   ccs = Ffind_charset (attribute);
   if (!NILP (ccs))
     {