Mercurial > emacs
changeset 53158:1025f21ef0c9
(Fredirect_debugging_output) [!GNU_LINUX]: Do not
define this defun on systems that cannot use stderr as lvalue.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 25 Nov 2003 09:48:15 +0000 |
| parents | 0ddc9f5e0a3c |
| children | e929f6d1593b |
| files | src/print.c |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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);