[COMMIT] Make device-matching-specifier-tag-list available again

[Aidan Kehoe]

APPROVE COMMIT 

NOTE: This patch has been committed.

src/ChangeLog addition:

2006-11-11  Aidan Kehoe  <kehoea at 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.


XEmacs Trunk source patch:
Diff command:   cvs -q diff -Nu
Files affected: src/specifier.c
===================================================================
RCS

Index: src/specifier.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/specifier.c,v
retrieving revision 1.47
diff -u -u -r1.47 specifier.c
--- src/specifier.c	2006/11/09 12:47:47	1.47
+++ src/specifier.c	2006/11/11 09:47:02
@@ -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);

-- 
Santa Maradona, priez pour moi!