mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

(Ftrace_to_stderr) [GLYPH_DEBUG]: Take args like

Browse Source 
`format'.
This commit is contained in:
Gerd Moellmann 2001-09-10 08:23:27 +00:00
parent caae20c741
commit f4a374a158
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -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.

13
src/xdisp.c
View File

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