911 |
return character; |
return character; |
912 |
} |
} |
913 |
|
|
914 |
|
|
915 |
|
#if defined(GNU_LINUX) |
916 |
|
|
917 |
|
/* This functionality is not vitally important in general, so we rely on |
918 |
|
non-portable ability to use stderr as lvalue. */ |
919 |
|
|
920 |
|
#define WITH_REDIRECT_DEBUGGING_OUTPUT 1 |
921 |
|
|
922 |
FILE *initial_stderr_stream = NULL; |
FILE *initial_stderr_stream = NULL; |
923 |
|
|
924 |
DEFUN ("redirect-debugging-output", Fredirect_debugging_output, Sredirect_debugging_output, |
DEFUN ("redirect-debugging-output", Fredirect_debugging_output, Sredirect_debugging_output, |
951 |
} |
} |
952 |
return Qnil; |
return Qnil; |
953 |
} |
} |
954 |
|
#endif /* GNU_LINUX */ |
955 |
|
|
956 |
|
|
957 |
/* This is the interface for debugging printing. */ |
/* This is the interface for debugging printing. */ |
958 |
|
|
2207 |
defsubr (&Sterpri); |
defsubr (&Sterpri); |
2208 |
defsubr (&Swrite_char); |
defsubr (&Swrite_char); |
2209 |
defsubr (&Sexternal_debugging_output); |
defsubr (&Sexternal_debugging_output); |
2210 |
|
#ifdef WITH_REDIRECT_DEBUGGING_OUTPUT |
2211 |
defsubr (&Sredirect_debugging_output); |
defsubr (&Sredirect_debugging_output); |
2212 |
|
#endif |
2213 |
|
|
2214 |
Qexternal_debugging_output = intern ("external-debugging-output"); |
Qexternal_debugging_output = intern ("external-debugging-output"); |
2215 |
staticpro (&Qexternal_debugging_output); |
staticpro (&Qexternal_debugging_output); |