From cf1bb91bd13b9e6c39be8f71f622bfb4a8b60179 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 25 Mar 1994 19:19:05 +0000
Subject: [PATCH] (debug_print): New function.

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

diff --git a/src/print.c b/src/print.c
index 8e4a05fe3af..a5f1f97907f 100644
--- a/src/print.c
+++ b/src/print.c
@@ -598,6 +598,15 @@ to make it write to the debugging output.\n")
   
   return character;
 }
+
+/* This is the interface for debugging printing.  */
+
+void
+debug_print (arg)
+     Lisp_Object arg;
+{
+  Fprin1 (arg, Qexternal_debugging_output);
+}
 
 #ifdef LISP_FLOAT_TYPE
 
-- 
2.39.5