From b14dda8a3e4e49d439df9fb4c1f37625a9f39df9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 24 Jul 1997 06:09:23 +0000 Subject: [PATCH] (Fcurrent_message): New function. (syms_of_editfns): defsubr it. --- src/editfns.c | 10 ++++++++++ 1 file changed, 10 insertions(+) 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); -- 2.39.5