Commit 937248bc authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(add_to_log): Moved from xfaces.c. Remove frame

parent 86c8e823
...@@ -4585,6 +4585,37 @@ move_it_by_lines (it, dvpos, need_y_p) ...@@ -4585,6 +4585,37 @@ move_it_by_lines (it, dvpos, need_y_p)
***********************************************************************/ ***********************************************************************/
/* Add a message with format string FORMAT and arguments ARG1 and ARG2
to *Messages*. */
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);
/* Output a newline in the *Messages* buffer if "needs" one. */ /* Output a newline in the *Messages* buffer if "needs" one. */
void void
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment