diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-09-10 08:23:27 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-09-10 08:23:27 +0000 |
| commit | f4a374a158323825660f74abb70dbd6710524dd0 (patch) | |
| tree | 33c23b850608cda5559c0e430be6433e47940bf8 /src/xdisp.c | |
| parent | caae20c74105a60dd36d9b4c382e4f1d37db5997 (diff) | |
| download | emacs-f4a374a158323825660f74abb70dbd6710524dd0.tar.gz emacs-f4a374a158323825660f74abb70dbd6710524dd0.tar.bz2 emacs-f4a374a158323825660f74abb70dbd6710524dd0.zip | |
(Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like
`format'.
Diffstat (limited to 'src/xdisp.c')
| -rw-r--r-- | src/xdisp.c | 13 |
1 files changed, 7 insertions, 6 deletions
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; } |