# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 874037206 0
# Node ID b6aaf1f70676b0bcb2e286277398013c897a9281
# Parent  3ff7106cf88f4ede3c2fb6887ab1312f1281f8ca
(Fexternal_debugging_output): On Windows output to debugger.

diff -r 3ff7106cf88f -r b6aaf1f70676 src/print.c
--- a/src/print.c	Fri Sep 12 02:14:46 1997 +0000
+++ b/src/print.c	Fri Sep 12 04:06:46 1997 +0000
@@ -731,7 +731,15 @@
 {
   CHECK_NUMBER (character, 0);
   putc (XINT (character), stderr);
-  
+
+#ifdef WINDOWSNT
+  /* Send the output to a debugger (nothing happens if there isn't one).  */
+  {
+    char buf[2] = {(char) XINT (character), '\0'};
+    OutputDebugString (buf);
+  }
+#endif
+
   return character;
 }