diff options
| author | Ken Raeburn | 1999-09-13 02:23:04 +0000 |
|---|---|---|
| committer | Ken Raeburn | 1999-09-13 02:23:04 +0000 |
| commit | 03699b140e13aee5b49fa4678e97dff5855e789c (patch) | |
| tree | 79213225b326eeaa5385bf863f2e3c2df62963e5 /src/category.c | |
| parent | 926106201f8bfebbaac3c5b0f5e36192b7f00f1b (diff) | |
| download | emacs-03699b140e13aee5b49fa4678e97dff5855e789c.tar.gz emacs-03699b140e13aee5b49fa4678e97dff5855e789c.zip | |
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
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) | |||
| 591 | if (NILP (category_set2)) | 591 | if (NILP (category_set2)) |
| 592 | return default_result; | 592 | return default_result; |
| 593 | 593 | ||
| 594 | for (; CONSP (tail); tail = XCONS (tail)->cdr) | 594 | for (; CONSP (tail); tail = XCDR (tail)) |
| 595 | { | 595 | { |
| 596 | Lisp_Object elt = XCONS(tail)->car; | 596 | Lisp_Object elt = XCAR (tail); |
| 597 | 597 | ||
| 598 | if (CONSP (elt) | 598 | if (CONSP (elt) |
| 599 | && CATEGORYP (XCONS (elt)->car) | 599 | && CATEGORYP (XCAR (elt)) |
| 600 | && CATEGORYP (XCONS (elt)->cdr) | 600 | && CATEGORYP (XCDR (elt)) |
| 601 | && CATEGORY_MEMBER (XFASTINT (XCONS (elt)->car), category_set1) | 601 | && CATEGORY_MEMBER (XFASTINT (XCAR (elt)), category_set1) |
| 602 | && CATEGORY_MEMBER (XFASTINT (XCONS (elt)->cdr), category_set2)) | 602 | && CATEGORY_MEMBER (XFASTINT (XCDR (elt)), category_set2)) |
| 603 | return !default_result; | 603 | return !default_result; |
| 604 | } | 604 | } |
| 605 | return default_result; | 605 | return default_result; |