# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764623145 0
# Node ID 49f896769be4c3d626f4122f3f71d1ccc25ce194
# Parent  14a632f13a68da6ae1292a57ca7833158f81cae5
(debug_print): New function.

diff -r 14a632f13a68 -r 49f896769be4 src/print.c
--- a/src/print.c	Fri Mar 25 18:34:05 1994 +0000
+++ b/src/print.c	Fri Mar 25 19:19:05 1994 +0000
@@ -598,6 +598,15 @@
   
   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