changeset 39222:a1df3f9229ba

(Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like `format'.

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