diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/xdisp.c | 13 |
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; } |