Avoid exiting when outputting error messages during loadup
* src/print.c (print_error_message): Don't call 'substitute-command-keys' when it isn't fboundp.
This commit is contained in:
parent
b7ae0232be
commit
95a0227ff7
1 changed files with 5 additions and 1 deletions
|
@ -941,7 +941,11 @@ print_error_message (Lisp_Object data, Lisp_Object stream, const char *context,
|
|||
else
|
||||
{
|
||||
Lisp_Object error_conditions = Fget (errname, Qerror_conditions);
|
||||
errmsg = call1 (Qsubstitute_command_keys, Fget (errname, Qerror_message));
|
||||
errmsg = Fget (errname, Qerror_message);
|
||||
/* During loadup 'substitute-command-keys' might not be available. */
|
||||
if (!NILP (Ffboundp (Qsubstitute_command_keys)))
|
||||
errmsg = call1 (Qsubstitute_command_keys, errmsg);
|
||||
|
||||
file_error = Fmemq (Qfile_error, error_conditions);
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue