# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 719359916 0
# Node ID 67fd35416ba398fd84a63d0e2bde2bcba8a04e23
# Parent  2c156e9908adb8c14c40a41e8b181005c4825dcb
*       * editfns.c (Fmessage): With no arguments, clear any active
	message; let the minibuffer contents show through.

diff -r 2c156e9908ad -r 67fd35416ba3 src/editfns.c
--- a/src/editfns.c	Sat Oct 17 22:11:23 1992 +0000
+++ b/src/editfns.c	Sat Oct 17 22:11:56 1992 +0000
@@ -1056,16 +1056,22 @@
 %s means print an argument as a string, %d means print as number in decimal,\n\
 %c means print a number as a single character.\n\
 The argument used by %s must be a string or a symbol;\n\
-the argument used by %d or %c must be a number.")
+the argument used by %d or %c must be a number.\n\
+If the first argument is nil, clear any existing message; let the\n\
+minibuffer contents show.")
   (nargs, args)
      int nargs;
      Lisp_Object *args;
 {
-  register Lisp_Object val;
-
-  val = Fformat (nargs, args);
-  message ("%s", XSTRING (val)->data);
-  return val;
+  if (NILP (args[0]))
+    message (0);
+  else
+    {
+      register Lisp_Object val;
+      val = Fformat (nargs, args);
+      message ("%s", XSTRING (val)->data);
+      return val;
+    }
 }
 
 DEFUN ("format", Fformat, Sformat, 1, MANY, 0,