# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1000110190 0
# Node ID a1df3f9229baf20a1e1f90b65fe9da7abccc7aea
# Parent  68b26e98aef6ef90152900139c86a9d4c849077a
(Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like
`format'.

diff -r 68b26e98aef6 -r a1df3f9229ba src/xdisp.c
--- a/src/xdisp.c	Mon Sep 10 05:34:15 2001 +0000
+++ b/src/xdisp.c	Mon Sep 10 08:23:10 2001 +0000
@@ -12165,13 +12165,14 @@
 }
 
 
-DEFUN ("trace-to-stderr", Ftrace_to_stderr, Strace_to_stderr, 1, 1, "",
-   "Print STRING to stderr.")
-   (string)
-     Lisp_Object string;
-{
-  CHECK_STRING (string, 0);
-  fprintf (stderr, "%s", XSTRING (string)->data);
+DEFUN ("trace-to-stderr", Ftrace_to_stderr, Strace_to_stderr, 1, MANY, "",
+   "Like `format', but print result to stderr.")
+   (nargs, args)
+     int nargs;
+     Lisp_Object *args;
+{
+  Lisp_Object s = Fformat (nargs, args);
+  fprintf (stderr, "%s", XSTRING (s)->data);
   return Qnil;
 }