Mercurial > hg > xemacs-beta

diff src/specifier.c @ 3817:caceb9db5b0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-02-06 20:01:40 by aidan] Fix a problem with specifiers I introduced.
author aidan
date Tue, 06 Feb 2007 20:01:42 +0000
parents 01830ac74073
children edaaf9a96d40
line wrap: on
line diff
--- a/src/specifier.c	Tue Feb 06 19:36:51 2007 +0000
+++ b/src/specifier.c	Tue Feb 06 20:01:42 2007 +0000
@@ -1310,18 +1310,17 @@
       assert(3 == list_len);
 
       device_predicate = XCADR(XCAR (rest));
-      charset_predicate = XCADDR(XCAR (rest));
 					   
       if (NILP (device_predicate))
 	{
-	  XCDR (XCAR (rest2)) = list2(Qt, charset_predicate);
+	  XCDR (XCAR (rest2)) = Qt; 
 	}
       else
 	{
 	  device_predicate = !NILP (call_critical_lisp_code 
 				    (d, device_predicate, device)) 
 	    ? Qt : Qnil;
-	  XCDR (XCAR (rest2)) = list2(device_predicate, charset_predicate);
+	  XCDR (XCAR (rest2)) = device_predicate;
 	}
     }
 }