mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 21:20:53 -08:00
Code Issues Projects Releases Wiki Activity

(Fmessage): Copy the text to be displayed into a malloc'd buffer.

Browse source
This commit is contained in:
Karl Heuer 1994-02-10 20:50:54 +00:00
parent 3a179e58d7
commit 671fbc4df1
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/editfns.c
View file

@ -1366,6 +1366,12 @@ use `save-excursion' outermost:\n\
return unbind_to (count, val);
}
/* Buffer for the most recent text displayed by Fmessage. */
static char *message_text;
/* Allocated length of that buffer. */
static int message_length;
DEFUN ("message", Fmessage, Smessage, 1, MANY, 0,
"Print a one-line message at the bottom of the screen.\n\
The first argument is a control string.\n\
@ -1389,7 +1395,19 @@ minibuffer contents show.")
{
register Lisp_Object val;
val = Fformat (nargs, args);
message2 (XSTRING (val)->data, XSTRING (val)->size);
/* Copy the data so that it won't move when we GC. */
if (! message_text)
{
message_text = (char *)xmalloc (80);
message_length = 80;
}
if (XSTRING (val)->size > message_length)
{
message_length = XSTRING (val)->size;
message_text = (char *)xrealloc (message_text, message_length);
}
bcopy (XSTRING (val)->data, message_text, XSTRING (val)->size);
message2 (message_text, XSTRING (val)->size);
return val;
}
}