From f4a374a158323825660f74abb70dbd6710524dd0 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 10 Sep 2001 08:23:27 +0000 Subject: [PATCH] (Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like `format'. --- src/ChangeLog | 5 +++++ 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 + + * xdisp.c (Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like + `format'. + 2001-09-10 Richard M. Stallman * 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; } -- 2.39.5