mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 23:31:55 -08:00
Code Issues Projects Releases Wiki Activity

(Fcurrent_message): New function.

Browse source 
(syms_of_editfns): defsubr it.
This commit is contained in:
Richard M. Stallman 1997-07-24 06:09:23 +00:00
parent 02e0989b51
commit b14dda8a3e
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/editfns.c
View file

@ -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);