diff src/specifier.c @ 3836:edaaf9a96d40

[xemacs-hg @ 2007-02-19 14:10:43 by stephent] Fix specifier tag alist dereference crash. <87wt2emdwe.fsf@uwakimon.sk.tsukuba.ac.jp>
author stephent
date Mon, 19 Feb 2007 14:10:44 +0000
parents caceb9db5b0a
children 515b91f904c1
line wrap: on
line diff
--- a/src/specifier.c	Sun Feb 18 22:51:22 2007 +0000
+++ b/src/specifier.c	Mon Feb 19 14:10:44 2007 +0000
@@ -1293,7 +1293,7 @@
 {
   Lisp_Object rest, rest2;
   Lisp_Object device = wrap_device (d);
-  Lisp_Object device_predicate, charset_predicate;
+  Lisp_Object device_predicate;
   int list_len;
 
   DEVICE_USER_DEFINED_TAGS (d) = Fcopy_alist (Vuser_defined_tags);
@@ -1395,7 +1395,7 @@
 
   LIST_LOOP (rest, DEVICE_USER_DEFINED_TAGS (d))
     {
-      if (!NILP (XCADR (XCAR (rest))))
+      if (!NILP (XCDR (XCAR (rest))))
 	list = Fcons (XCAR (XCAR (rest)), list);
     }