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

(Fcall_interactively): Allocate string by bytes.

Browse Source 
Use message_with_string.
This commit is contained in:
Richard M. Stallman 1998-01-09 23:33:09 +00:00
parent c872c6b297
commit 88bc3111a7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/callint.c
View File

@ -288,8 +288,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
{
/* Make a copy of string so that if a GC relocates specs,
`string' will still be valid. */
string = (unsigned char *) alloca (XSTRING (specs)->size + 1);
bcopy (XSTRING (specs)->data, string, XSTRING (specs)->size + 1);
string = (unsigned char *) alloca (XSTRING (specs)->size_byte + 1);
bcopy (XSTRING (specs)->data, string, XSTRING (specs)->size_byte + 1);
}
else if (string == 0)
{
@ -487,10 +487,10 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
break;
case 'c': /* Character */
/* Use message_nolog rather than message1_nolog here,
/* Use message_with_string rather than message1_nolog here,
so that nothing bad happens if callint_message is changed
within Fread_char (by a timer, for example). */
message_nolog ("%s", callint_message);
message_with_string ("%s", build_string (callint_message), 0);
args[i] = Fread_char ();
message1_nolog ((char *) 0);
/* Passing args[i] directly stimulates compiler bug */