Mercurial > emacs
changeset 25798:775d0eca0cc3
(add_to_log): Moved from xfaces.c. Remove frame
parameter.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 23 Sep 1999 22:17:40 +0000 |
| parents | 0d73a1e7b7f2 |
| children | 1c370ec939da |
| files | src/xdisp.c |
| diffstat | 1 files changed, 31 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xdisp.c Thu Sep 23 22:17:37 1999 +0000 +++ b/src/xdisp.c Thu Sep 23 22:17:40 1999 +0000 @@ -4585,6 +4585,37 @@ ***********************************************************************/ +/* Add a message with format string FORMAT and arguments ARG1 and ARG2 + to *Messages*. */ + +void +add_to_log (format, arg1, arg2) + char *format; + Lisp_Object arg1, arg2; +{ + Lisp_Object args[3]; + Lisp_Object msg, fmt; + char *buffer; + int len; + struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; + + fmt = msg = Qnil; + GCPRO4 (fmt, msg, arg1, arg2); + + args[0] = fmt = build_string (format); + args[1] = arg1; + args[2] = arg2; + msg = Fformat (make_number (3), args); + + len = STRING_BYTES (XSTRING (msg)) + 1; + buffer = (char *) alloca (len); + strcpy (buffer, XSTRING (msg)->data); + + message_dolog (buffer, len, 1, 0); + UNGCPRO; +} + + /* Output a newline in the *Messages* buffer if "needs" one. */ void