From cd22039d5bc3c5036cc3e4457045de6a92a3ad42 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 12 Sep 1997 04:06:46 +0000
Subject: [PATCH] (Fexternal_debugging_output): On Windows output to debugger.

---
 src/print.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/print.c b/src/print.c
index 67b30802f94..d1c310ec246 100644
--- a/src/print.c
+++ b/src/print.c
@@ -731,7 +731,15 @@ to make it write to the debugging output.\n")
 {
   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;
 }
 
-- 
2.39.5