Mercurial > emacs
diff src/editfns.c @ 18937:ddb91108a9d2
(Fcurrent_message): New function.
(syms_of_editfns): defsubr it.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 24 Jul 1997 06:09:23 +0000 |
parents | 751f531e5a20 |
children | 84ae0a03a643 |
line wrap: on
line diff
--- 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);