Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 5920:0f2338afbabf cygwin

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minimum necessary to get started: sufficient to compile OK, run -nw, but not with window
author Henry Thompson <ht@markup.co.uk>
date Mon, 21 Apr 2014 11:42:50 +0100
parents b0d40183ac79
children
comparison
equal deleted inserted replaced
5919:2800105fcc9f 5920:0f2338afbabf
949 device_matches_specifier_tag_set_p (Lisp_Object device, Lisp_Object tag_set) 949 device_matches_specifier_tag_set_p (Lisp_Object device, Lisp_Object tag_set)
950 { 950 {
951 Lisp_Object devtype, devclass, rest; 951 Lisp_Object devtype, devclass, rest;
952 struct device *d = XDEVICE (device); 952 struct device *d = XDEVICE (device);
953 953
954 devtype = DEVICE_TYPE (d); 954 devtype = DEVICE_TYPE_X (d);
955 devclass = DEVICE_CLASS (d); 955 devclass = DEVICE_CLASS (d);
956 956
957 LIST_LOOP (rest, tag_set) 957 LIST_LOOP (rest, tag_set)
958 { 958 {
959 Lisp_Object tag = XCAR (rest); 959 Lisp_Object tag = XCAR (rest);
1341 list = Fcons (XCAR (XCAR (rest)), list); 1341 list = Fcons (XCAR (XCAR (rest)), list);
1342 } 1342 }
1343 1343
1344 list = Fnreverse (list); 1344 list = Fnreverse (list);
1345 list = Fcons (DEVICE_CLASS (d), list); 1345 list = Fcons (DEVICE_CLASS (d), list);
1346 list = Fcons (DEVICE_TYPE (d), list); 1346 list = Fcons (DEVICE_TYPE_X (d), list);
1347 1347
1348 RETURN_UNGCPRO (list); 1348 RETURN_UNGCPRO (list);
1349 } 1349 }
1350 1350
1351 DEFUN ("specifier-tag-list", Fspecifier_tag_list, 0, 0, 0, /* 1351 DEFUN ("specifier-tag-list", Fspecifier_tag_list, 0, 0, 0, /*