From: Kim F. Storm <storm@cua.dk>
Date: Tue, 25 Nov 2003 09:48:15 +0000 (+0000)
Subject: (Fredirect_debugging_output) [!GNU_LINUX]: Do not
X-Git-Tag: ttn-vms-21-2-B4~8275
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95e52d88883c4b5e195f7f27ef3779551621f977;p=emacs.git

(Fredirect_debugging_output) [!GNU_LINUX]: Do not
define this defun on systems that cannot use stderr as lvalue.
---

diff --git a/src/print.c b/src/print.c
index 719fb8fd21a..441894471a7 100644
--- a/src/print.c
+++ b/src/print.c
@@ -911,6 +911,14 @@ to make it write to the debugging output.  */)
   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 @@ append to existing target file.  */)
     }
   return Qnil;
 }
+#endif /* GNU_LINUX */
+
 
 /* This is the interface for debugging printing.  */
 
@@ -2197,7 +2207,9 @@ that need to be recorded in the table.  */);
   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);