/[emacs]/emacs/src/category.c
ViewVC logotype

Diff of /emacs/src/category.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by monnier, Wed Nov 28 20:44:42 2001 UTC revision 1.31 by raeburn, Mon Jul 15 00:00:35 2002 UTC
# Line 69  those categories.  */) Line 69  those categories.  */)
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      }      }

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26