# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1069753695 0
# Node ID 1025f21ef0c9c7fbfc249ef734580857644b99dc
# Parent  0ddc9f5e0a3c5e36b074a25788cb5da10089b19e
(Fredirect_debugging_output) [!GNU_LINUX]: Do not
define this defun on systems that cannot use stderr as lvalue.

diff -r 0ddc9f5e0a3c -r 1025f21ef0c9 src/print.c
--- a/src/print.c	Tue Nov 25 09:47:57 2003 +0000
+++ b/src/print.c	Tue Nov 25 09:48:15 2003 +0000
@@ -911,6 +911,14 @@
   return character;
 }
 
+
+#if defined(GNU_LINUX)
+
+/* This functionality is not vitally important in general, so we rely on
+   non-portable ability to use stderr as lvalue.  */
+
+#define WITH_REDIRECT_DEBUGGING_OUTPUT 1
+
 FILE *initial_stderr_stream = NULL;
 
 DEFUN ("redirect-debugging-output", Fredirect_debugging_output, Sredirect_debugging_output,
@@ -943,6 +951,8 @@
     }
   return Qnil;
 }
+#endif /* GNU_LINUX */
+
 
 /* This is the interface for debugging printing.  */
 
@@ -2197,7 +2207,9 @@
   defsubr (&Sterpri);
   defsubr (&Swrite_char);
   defsubr (&Sexternal_debugging_output);
+#ifdef WITH_REDIRECT_DEBUGGING_OUTPUT
   defsubr (&Sredirect_debugging_output);
+#endif
 
   Qexternal_debugging_output = intern ("external-debugging-output");
   staticpro (&Qexternal_debugging_output);