Mercurial > emacs
comparison src/category.c @ 18613:614b916ff5bf
Fix bugs with inappropriate mixing of Lisp_Object with int.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 04 Jul 1997 20:44:52 +0000 |
| parents | 33e78cc7f058 |
| children | 315acc2627fe |
comparison
equal
deleted
inserted
replaced
| 18612:88efccff8970 | 18613:614b916ff5bf |
|---|---|
| 572 Lisp_Object elt = XCONS(tail)->car; | 572 Lisp_Object elt = XCONS(tail)->car; |
| 573 | 573 |
| 574 if (CONSP (elt) | 574 if (CONSP (elt) |
| 575 && CATEGORYP (XCONS (elt)->car) | 575 && CATEGORYP (XCONS (elt)->car) |
| 576 && CATEGORYP (XCONS (elt)->cdr) | 576 && CATEGORYP (XCONS (elt)->cdr) |
| 577 && CATEGORY_MEMBER (XCONS (elt)->car, category_set1) | 577 && CATEGORY_MEMBER (XFASTINT (XCONS (elt)->car), category_set1) |
| 578 && CATEGORY_MEMBER (XCONS (elt)->cdr, category_set2)) | 578 && CATEGORY_MEMBER (XFASTINT (XCONS (elt)->cdr), category_set2)) |
| 579 return !default_result; | 579 return !default_result; |
| 580 } | 580 } |
| 581 return default_result; | 581 return default_result; |
| 582 } | 582 } |
| 583 | 583 |