From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 12 Sep 1997 04:06:46 +0000 (+0000)
Subject: (Fexternal_debugging_output): On Windows output to debugger.
X-Git-Tag: emacs-20.1~66
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd22039d5bc3c5036cc3e4457045de6a92a3ad42;p=emacs.git

(Fexternal_debugging_output): On Windows output to debugger.
---

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;
 }