(Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like

`format'.

diff --git a/src/ChangeLog b/src/ChangeLog
index d99c18ee0df72dcf54897faab29c195b6d61c433..312b90af4c46f979f5a38bf7aa0a8cc7d6bc3177 100644 (file)
--- 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 4f906483c93c10277e880b18b41e4f8857d54930..01543b8ecbd9cf9fb493762dbd19e163f1fd7a4a 100644 (file)
--- 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;
 }