From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 10 Sep 2001 08:23:27 +0000 (+0000)
Subject: (Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like
X-Git-Tag: emacs-pretest-21.0.106~167
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4a374a158323825660f74abb70dbd6710524dd0;p=emacs.git

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

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