(Fcurrent_message): New function.

(syms_of_editfns): defsubr it.

diff --git a/src/editfns.c b/src/editfns.c
index cdcf0165b86bcbf985e9bc0e2440cee857a38346..fa4f486c69972cab5ab5482044028a888110edb0 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2131,6 +2131,15 @@ minibuffer contents show.")
   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 @@ functions if all the text being accessed has this property.");
   defsubr (&Smessage);
   defsubr (&Smessage_box);
   defsubr (&Smessage_or_box);
+  defsubr (&Scurrent_message);
   defsubr (&Sformat);
 
   defsubr (&Sinsert_buffer_substring);