Merge from trunk.

[gnu-emacs] / src / category.c

diff --git a/src/category.c b/src/category.c
index 819e7cba364e6824381f775b5b10a76e4d955b25..a59ad3da53e5637708d45ab4d6b798aba0ecca5c 100644 (file)
--- a/src/category.c
+++ b/src/category.c
@@ -304,7 +304,7 @@ DEFUN ("char-category-set", Fchar_category_set, Schar_category_set, 1, 1, 0,
 usage: (char-category-set CHAR)  */)
   (Lisp_Object ch)
 {
-  CHECK_NUMBER (ch);
+  CHECK_CHARACTER (ch);
   return CATEGORY_SET (XFASTINT (ch));
 }