(Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like

`format'.

2 files changed, 12 insertions, 6 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index d99c18ee0df..312b90af4c4 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-10  Gerd Moellmann  <gerd@gnu.org>
+
+        * xdisp.c (Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like
+        `format'.
+
 2001-09-10  Richard M. Stallman  <rms@gnu.org>
 
         * frame.c (Fmouse_position): Doc fix.
diff --git a/src/xdisp.c b/src/xdisp.c
index 4f906483c93..01543b8ecbd 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -12165,13 +12165,14 @@ With ARG, turn tracing on if and only if ARG is positive.")
 }
 
 
-DEFUN ("trace-to-stderr", Ftrace_to_stderr, Strace_to_stderr, 1, 1, "",
-   "Print STRING to stderr.")
-   (string)
-     Lisp_Object string;
+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;
 {
-  CHECK_STRING (string, 0);
-  fprintf (stderr, "%s", XSTRING (string)->data);
+  Lisp_Object s = Fformat (nargs, args);
+  fprintf (stderr, "%s", XSTRING (s)->data);
   return Qnil;
 }