diff options
Diffstat (limited to 'src/category.c')
| -rw-r--r-- | src/category.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/category.c b/src/category.c index 734634bd6aa..99f8a5a3bf2 100644 --- a/src/category.c +++ b/src/category.c @@ -591,15 +591,15 @@ word_boundary_p (c1, c2) if (NILP (category_set2)) return default_result; - for (; CONSP (tail); tail = XCONS (tail)->cdr) + for (; CONSP (tail); tail = XCDR (tail)) { - Lisp_Object elt = XCONS(tail)->car; + Lisp_Object elt = XCAR (tail); if (CONSP (elt) - && CATEGORYP (XCONS (elt)->car) - && CATEGORYP (XCONS (elt)->cdr) - && CATEGORY_MEMBER (XFASTINT (XCONS (elt)->car), category_set1) - && CATEGORY_MEMBER (XFASTINT (XCONS (elt)->cdr), category_set2)) + && CATEGORYP (XCAR (elt)) + && CATEGORYP (XCDR (elt)) + && CATEGORY_MEMBER (XFASTINT (XCAR (elt)), category_set1) + && CATEGORY_MEMBER (XFASTINT (XCDR (elt)), category_set2)) return !default_result; } return default_result; |