Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
3816:bd7108edc555 3817:caceb9db5b0a
1308 GET_LIST_LENGTH(XCAR(rest), list_len); 1308 GET_LIST_LENGTH(XCAR(rest), list_len);
1309 1309
1310 assert(3 == list_len); 1310 assert(3 == list_len);
1311 1311
1312 device_predicate = XCADR(XCAR (rest)); 1312 device_predicate = XCADR(XCAR (rest));
1313 charset_predicate = XCADDR(XCAR (rest));
1314 1313
1315 if (NILP (device_predicate)) 1314 if (NILP (device_predicate))
1316 { 1315 {
1317 XCDR (XCAR (rest2)) = list2(Qt, charset_predicate); 1316 XCDR (XCAR (rest2)) = Qt;
1318 } 1317 }
1319 else 1318 else
1320 { 1319 {
1321 device_predicate = !NILP (call_critical_lisp_code 1320 device_predicate = !NILP (call_critical_lisp_code
1322 (d, device_predicate, device)) 1321 (d, device_predicate, device))
1323 ? Qt : Qnil; 1322 ? Qt : Qnil;
1324 XCDR (XCAR (rest2)) = list2(device_predicate, charset_predicate); 1323 XCDR (XCAR (rest2)) = device_predicate;
1325 } 1324 }
1326 } 1325 }
1327 } 1326 }
1328 1327
1329 void 1328 void