From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 24 Jul 1997 06:09:23 +0000 (+0000)
Subject: (Fcurrent_message): New function.
X-Git-Tag: emacs-20.1~1009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b14dda8a3e4e49d439df9fb4c1f37625a9f39df9;p=emacs.git

(Fcurrent_message): New function.
(syms_of_editfns): defsubr it.
---

diff --git a/src/editfns.c b/src/editfns.c
index cdcf0165b86..fa4f486c699 100644
--- 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);