Mercurial > hg > xemacs-beta
changeset 3673:887d4be44334
[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 | c2c7c924a4d9 |
| children | f200f93c0b69 |
| files | src/ChangeLog src/specifier.c |
| diffstat | 2 files changed, 15 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Fri Nov 10 22:51:02 2006 +0000 +++ b/src/ChangeLog Sat Nov 11 09:50:34 2006 +0000 @@ -1,3 +1,10 @@ +2006-11-11 Aidan Kehoe <kehoea@parhasard.net> + + * specifier.c: + VM calls device-matching-specifier-tag-list; my taking it out of + non-debug builds was misjudged, this change puts it back in. I've + also reverted a couple of incidental and wrong whitespace changes. + 2006-11-09 Aidan Kehoe <kehoea@parhasard.net> * specifier.c (specifier_instance_from_inst_list):
--- a/src/specifier.c Fri Nov 10 22:51:02 2006 +0000 +++ b/src/specifier.c Sat Nov 11 09:50:34 2006 +0000 @@ -1372,17 +1372,15 @@ = charset_tag_list; } -#ifdef DEBUG_XEMACS - -/* Nothing's calling this, I see no reason to keep it in the production - builds. */ +/* VM calls this, in vm-multiple-frames-possible-p, in the event that you're + considering taking it out. */ DEFUN ("device-matching-specifier-tag-list", Fdevice_matching_specifier_tag_list, 0, 1, 0, /* - Return a list of all specifier tags matching DEVICE. - DEVICE defaults to the selected device if omitted. - */ +Return a list of all specifier tags matching DEVICE. +DEVICE defaults to the selected device if omitted. +*/ (device)) { struct device *d = decode_device (device); @@ -1404,8 +1402,6 @@ RETURN_UNGCPRO (list); } -#endif /* DEBUG_XEMACS */ - DEFUN ("specifier-tag-list", Fspecifier_tag_list, 0, 0, 0, /* Return a list of all currently-defined specifier tags. This includes the built-in ones (the device types and classes). @@ -1457,8 +1453,8 @@ DEFUN ("specifier-tag-charset-predicate", Fspecifier_tag_charset_predicate, 1, 1, 0, /* - Return the charset predicate for the given specifier tag. - */ +Return the charset predicate for the given specifier tag. +*/ (tag)) { /* The return value of this function must be GCPRO'd. */ @@ -3809,9 +3805,8 @@ DEFSUBR (Fcanonicalize_tag_set); DEFSUBR (Fdevice_matches_specifier_tag_set_p); DEFSUBR (Fdefine_specifier_tag); -#ifdef DEBUG_XEMACS DEFSUBR (Fdevice_matching_specifier_tag_list); -#endif /* DEBUG_XEMACS */ + DEFSUBR (Fspecifier_tag_list); DEFSUBR (Fspecifier_tag_device_predicate); DEFSUBR (Fspecifier_tag_charset_predicate);