* macfns.c (validate_x_resource_name): Use SSET.

[gnu-emacs] / src / category.c

diff --git a/src/category.c b/src/category.c
index bbd4686ed868a736e390a1f8151762c0f1b67a3f..c7ae2ccf90d4404d19f15c17e5920a6a92c40174 100644 (file)
--- a/src/category.c
+++ b/src/category.c
@@ -69,12 +69,12 @@ those categories.  */)
   if (STRING_MULTIBYTE (categories))
     error ("Multibyte string in make-category-set");
 
-  len = XSTRING (categories)->size;
+  len = SCHARS (categories);
   while (--len >= 0)
     {
       Lisp_Object category;
 
-      XSETFASTINT (category, XSTRING (categories)->data[len]);
+      XSETFASTINT (category, SREF (categories, len));
       CHECK_CATEGORY (category);
       SET_CATEGORY_SET (val, category, Qt);
     }