mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases 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
Show Stats 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);