Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 3673:887d4be44334

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-11-11 09:50:33 by aidan] Make device-matching-specifier-tag-list available again--my taking it out was misjudged.
author aidan
date Sat, 11 Nov 2006 09:50:34 +0000
parents 08749d050663
children f200f93c0b69
comparison
equal deleted inserted replaced
3672:c2c7c924a4d9 3673:887d4be44334
1370 XVECTOR_DATA 1370 XVECTOR_DATA
1371 (Vcharset_tag_lists)[XCHARSET_LEADING_BYTE(charset) - MIN_LEADING_BYTE] 1371 (Vcharset_tag_lists)[XCHARSET_LEADING_BYTE(charset) - MIN_LEADING_BYTE]
1372 = charset_tag_list; 1372 = charset_tag_list;
1373 } 1373 }
1374 1374
1375 #ifdef DEBUG_XEMACS 1375 /* VM calls this, in vm-multiple-frames-possible-p, in the event that you're
1376 1376 considering taking it out. */
1377 /* Nothing's calling this, I see no reason to keep it in the production
1378 builds. */
1379 1377
1380 DEFUN ("device-matching-specifier-tag-list", 1378 DEFUN ("device-matching-specifier-tag-list",
1381 Fdevice_matching_specifier_tag_list, 1379 Fdevice_matching_specifier_tag_list,
1382 0, 1, 0, /* 1380 0, 1, 0, /*
1383 Return a list of all specifier tags matching DEVICE. 1381 Return a list of all specifier tags matching DEVICE.
1384 DEVICE defaults to the selected device if omitted. 1382 DEVICE defaults to the selected device if omitted.
1385 */ 1383 */
1386 (device)) 1384 (device))
1387 { 1385 {
1388 struct device *d = decode_device (device); 1386 struct device *d = decode_device (device);
1389 Lisp_Object rest, list = Qnil; 1387 Lisp_Object rest, list = Qnil;
1390 struct gcpro gcpro1; 1388 struct gcpro gcpro1;
1401 list = Fcons (DEVICE_CLASS (d), list); 1399 list = Fcons (DEVICE_CLASS (d), list);
1402 list = Fcons (DEVICE_TYPE (d), list); 1400 list = Fcons (DEVICE_TYPE (d), list);
1403 1401
1404 RETURN_UNGCPRO (list); 1402 RETURN_UNGCPRO (list);
1405 } 1403 }
1406
1407 #endif /* DEBUG_XEMACS */
1408 1404
1409 DEFUN ("specifier-tag-list", Fspecifier_tag_list, 0, 0, 0, /* 1405 DEFUN ("specifier-tag-list", Fspecifier_tag_list, 0, 0, 0, /*
1410 Return a list of all currently-defined specifier tags. 1406 Return a list of all currently-defined specifier tags.
1411 This includes the built-in ones (the device types and classes). 1407 This includes the built-in ones (the device types and classes).
1412 */ 1408 */
1455 return XCADR (assq_no_quit (tag, Vuser_defined_tags)); 1451 return XCADR (assq_no_quit (tag, Vuser_defined_tags));
1456 } 1452 }
1457 1453
1458 DEFUN ("specifier-tag-charset-predicate", Fspecifier_tag_charset_predicate, 1454 DEFUN ("specifier-tag-charset-predicate", Fspecifier_tag_charset_predicate,
1459 1, 1, 0, /* 1455 1, 1, 0, /*
1460 Return the charset predicate for the given specifier tag. 1456 Return the charset predicate for the given specifier tag.
1461 */ 1457 */
1462 (tag)) 1458 (tag))
1463 { 1459 {
1464 /* The return value of this function must be GCPRO'd. */ 1460 /* The return value of this function must be GCPRO'd. */
1465 CHECK_SYMBOL (tag); 1461 CHECK_SYMBOL (tag);
1466 1462
3807 DEFSUBR (Fvalid_specifier_tag_p); 3803 DEFSUBR (Fvalid_specifier_tag_p);
3808 DEFSUBR (Fvalid_specifier_tag_set_p); 3804 DEFSUBR (Fvalid_specifier_tag_set_p);
3809 DEFSUBR (Fcanonicalize_tag_set); 3805 DEFSUBR (Fcanonicalize_tag_set);
3810 DEFSUBR (Fdevice_matches_specifier_tag_set_p); 3806 DEFSUBR (Fdevice_matches_specifier_tag_set_p);
3811 DEFSUBR (Fdefine_specifier_tag); 3807 DEFSUBR (Fdefine_specifier_tag);
3812 #ifdef DEBUG_XEMACS
3813 DEFSUBR (Fdevice_matching_specifier_tag_list); 3808 DEFSUBR (Fdevice_matching_specifier_tag_list);
3814 #endif /* DEBUG_XEMACS */ 3809
3815 DEFSUBR (Fspecifier_tag_list); 3810 DEFSUBR (Fspecifier_tag_list);
3816 DEFSUBR (Fspecifier_tag_device_predicate); 3811 DEFSUBR (Fspecifier_tag_device_predicate);
3817 DEFSUBR (Fspecifier_tag_charset_predicate); 3812 DEFSUBR (Fspecifier_tag_charset_predicate);
3818 3813
3819 DEFSUBR (Fcheck_valid_instantiator); 3814 DEFSUBR (Fcheck_valid_instantiator);