1202 |
else |
else |
1203 |
{ |
{ |
1204 |
Fdiscard_input (); |
Fdiscard_input (); |
1205 |
|
message_log_maybe_newline (); |
1206 |
bitch_at_user (); |
bitch_at_user (); |
1207 |
stream = Qt; |
stream = Qt; |
|
|
|
|
/* If we know from where the error was signaled, show it in |
|
|
*Messages*. */ |
|
|
if (!NILP (Vsignaling_function) && SYMBOLP (Vsignaling_function)) |
|
|
{ |
|
|
const char *name = SDATA (SYMBOL_NAME (Vsignaling_function)); |
|
|
message_dolog (name, strlen (name), 0, 0); |
|
|
message_dolog (": ", 2, 0, 0); |
|
|
Vsignaling_function = Qnil; |
|
|
} |
|
1208 |
} |
} |
1209 |
|
|
1210 |
if (context != 0) |
/* The immediate context is not interesting for Quits, |
1211 |
write_string_1 (context, -1, stream); |
since they are asyncronous. */ |
1212 |
|
if (EQ (XCAR (data), Qquit)) |
1213 |
|
Vsignaling_function = Qnil; |
1214 |
|
|
1215 |
|
print_error_message (data, stream, context, Vsignaling_function); |
1216 |
|
|
1217 |
print_error_message (data, stream); |
Vsignaling_function = Qnil; |
1218 |
|
|
1219 |
/* If the window system or terminal frame hasn't been initialized |
/* If the window system or terminal frame hasn't been initialized |
1220 |
yet, or we're in -batch mode, this error should cause Emacs to exit. */ |
yet, or we're in -batch mode, this error should cause Emacs to exit. */ |