CVS update by aidan xemacs/src ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 06/11/11 10:50:37

  Modified:    xemacs/src ChangeLog specifier.c
Log:
Make device-matching-specifier-tag-list available again--my taking it out
was misjudged.

Revision  Changes    Path
1.1009    +7 -0      XEmacs/xemacs/src/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.1008
retrieving revision 1.1009
diff -u -p -r1.1008 -r1.1009
--- ChangeLog	2006/11/09 12:47:45	1.1008
+++ ChangeLog	2006/11/11 09:50:33	1.1009
@@ -1,3 +1,10 @@
+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.
+
 2006-11-09  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* specifier.c (specifier_instance_from_inst_list):



1.48      +8 -13     XEmacs/xemacs/src/specifier.c

Index: specifier.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/specifier.c,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -p -r1.47 -r1.48
--- specifier.c	2006/11/09 12:47:47	1.47
+++ specifier.c	2006/11/11 09:50:34	1.48
@@ -1372,17 +1372,15 @@ setup_charset_initial_specifier_tags (Li
     = 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 @@ DEFUN ("device-matching-specifier-tag-li
   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 @@ Return the device predicate for the give
 
 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 @@ syms_of_specifier (void)
   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);