# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869724563 0
# Node ID ddb91108a9d240c588dda2c7528d9b37219784f9
# Parent  5aa5fcdc25c12a7499010315ceb81451b4ed3947
(Fcurrent_message): New function.
(syms_of_editfns): defsubr it.

diff -r 5aa5fcdc25c1 -r ddb91108a9d2 src/editfns.c
--- a/src/editfns.c	Thu Jul 24 06:04:06 1997 +0000
+++ b/src/editfns.c	Thu Jul 24 06:09:23 1997 +0000
@@ -2131,6 +2131,15 @@
   return Fmessage (nargs, args);
 }
 
+DEFUN ("current-message", Fcurrent_message, Scurrent_message, 0, 0, 0,
+  "Return the string currently displayed in the echo area, or nil if none.")
+  ()
+{
+  return (echo_area_glyphs
+	  ? make_string (echo_area_glyphs, echo_area_glyphs_length)
+	  : Qnil);
+}
+
 DEFUN ("format", Fformat, Sformat, 1, MANY, 0,
   "Format a string out of a control-string and arguments.\n\
 The first argument is a control string.\n\
@@ -2787,6 +2796,7 @@
   defsubr (&Smessage);
   defsubr (&Smessage_box);
   defsubr (&Smessage_or_box);
+  defsubr (&Scurrent_message);
   defsubr (&Sformat);
 
   defsubr (&Sinsert_buffer_substring);