Commit 15c60737 authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fmake_category_set): Use XSETFASTINT.

parent efee6861
......@@ -67,8 +67,9 @@ CATEGORIES is a string of category mnemonics.")
len = XSTRING (categories)->size;
while (--len >= 0)
{
Lisp_Object category = make_number (XSTRING (categories)->data[len]);
Lisp_Object category;
XSETFASTINT (category, XSTRING (categories)->data[len]);
CHECK_CATEGORY (category, 0);
SET_CATEGORY_SET (val, category, Qt);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment