69 |
if (STRING_MULTIBYTE (categories)) |
if (STRING_MULTIBYTE (categories)) |
70 |
error ("Multibyte string in make-category-set"); |
error ("Multibyte string in make-category-set"); |
71 |
|
|
72 |
len = XSTRING (categories)->size; |
len = SCHARS (categories); |
73 |
while (--len >= 0) |
while (--len >= 0) |
74 |
{ |
{ |
75 |
Lisp_Object category; |
Lisp_Object category; |
76 |
|
|
77 |
XSETFASTINT (category, XSTRING (categories)->data[len]); |
XSETFASTINT (category, SREF (categories, len)); |
78 |
CHECK_CATEGORY (category); |
CHECK_CATEGORY (category); |
79 |
SET_CATEGORY_SET (val, category, Qt); |
SET_CATEGORY_SET (val, category, Qt); |
80 |
} |
} |