Mercurial > emacs

diff src/category.c @ 18613:614b916ff5bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- a/src/category.c	Fri Jul 04 20:43:49 1997 +0000
+++ b/src/category.c	Fri Jul 04 20:44:52 1997 +0000
@@ -574,8 +574,8 @@
       if (CONSP (elt)
 	  && CATEGORYP (XCONS (elt)->car)
 	  && CATEGORYP (XCONS (elt)->cdr)
-	  && CATEGORY_MEMBER (XCONS (elt)->car, category_set1)
-	  && CATEGORY_MEMBER (XCONS (elt)->cdr, category_set2))
+	  && CATEGORY_MEMBER (XFASTINT (XCONS (elt)->car), category_set1)
+	  && CATEGORY_MEMBER (XFASTINT (XCONS (elt)->cdr), category_set2))
 	return !default_result;
     }
   return default_result;