288 |
{ |
{ |
289 |
/* Make a copy of string so that if a GC relocates specs, |
/* Make a copy of string so that if a GC relocates specs, |
290 |
`string' will still be valid. */ |
`string' will still be valid. */ |
291 |
string = (unsigned char *) alloca (STRING_BYTES (XSTRING (specs)) + 1); |
string = (unsigned char *) alloca (SBYTES (specs) + 1); |
292 |
bcopy (XSTRING (specs)->data, string, |
bcopy (SDATA (specs), string, |
293 |
STRING_BYTES (XSTRING (specs)) + 1); |
SBYTES (specs) + 1); |
294 |
} |
} |
295 |
else if (string == 0) |
else if (string == 0) |
296 |
{ |
{ |
453 |
argstrings[j] |
argstrings[j] |
454 |
= (EQ (visargs[j], Qnil) |
= (EQ (visargs[j], Qnil) |
455 |
? (unsigned char *) "" |
? (unsigned char *) "" |
456 |
: XSTRING (visargs[j])->data); |
: SDATA (visargs[j])); |
457 |
|
|
458 |
/* Process the format-string in prompt1, putting the output |
/* Process the format-string in prompt1, putting the output |
459 |
into callint_message. Make callint_message bigger if necessary. |
into callint_message. Make callint_message bigger if necessary. |
599 |
if (next_event >= key_count) |
if (next_event >= key_count) |
600 |
error ("%s must be bound to an event with parameters", |
error ("%s must be bound to an event with parameters", |
601 |
(SYMBOLP (function) |
(SYMBOLP (function) |
602 |
? (char *) XSTRING (SYMBOL_NAME (function))->data |
? (char *) SDATA (SYMBOL_NAME (function)) |
603 |
: "command")); |
: "command")); |
604 |
args[i] = XVECTOR (keys)->contents[next_event++]; |
args[i] = XVECTOR (keys)->contents[next_event++]; |
605 |
varies[i] = -1; |
varies[i] = -1; |
644 |
tem = Fread_from_minibuffer (build_string (callint_message), |
tem = Fread_from_minibuffer (build_string (callint_message), |
645 |
Qnil, Qnil, Qnil, Qnil, Qnil, |
Qnil, Qnil, Qnil, Qnil, Qnil, |
646 |
Qnil); |
Qnil); |
647 |
if (! STRINGP (tem) || XSTRING (tem)->size == 0) |
if (! STRINGP (tem) || SCHARS (tem) == 0) |
648 |
args[i] = Qnil; |
args[i] = Qnil; |
649 |
else |
else |
650 |
args[i] = Fread (tem); |
args[i] = Fread (tem); |