# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 938125060 0
# Node ID 775d0eca0cc34d2864cbfa2921b95566099b8fb0
# Parent  0d73a1e7b7f224dc79cd2e02cd916202c3ed6c90
(add_to_log): Moved from xfaces.c.  Remove frame
parameter.

diff -r 0d73a1e7b7f2 -r 775d0eca0cc3 src/xdisp.c
--- 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