Mercurial > emacs
comparison src/print.c @ 46317:92d71ae14d0f
(print_error_message): Don't handle Vsignaling_function here.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 12 Jul 2002 11:19:09 +0000 |
parents | 1fb8f75062c6 |
children | 40db0673e6f0 |
comparison
equal
deleted
inserted
replaced
46316:06bf5ed360fd | 46317:92d71ae14d0f |
---|---|
964 | 964 |
965 /* Print an error message including the data items. */ | 965 /* Print an error message including the data items. */ |
966 | 966 |
967 tail = Fcdr_safe (data); | 967 tail = Fcdr_safe (data); |
968 GCPRO1 (tail); | 968 GCPRO1 (tail); |
969 | |
970 /* If we know from where the error was signaled, show it in | |
971 *Messages*. */ | |
972 if (!NILP (Vsignaling_function) && SYMBOLP (Vsignaling_function)) | |
973 { | |
974 char *name = XSTRING (SYMBOL_NAME (Vsignaling_function))->data; | |
975 message_dolog (name, strlen (name), 0, 0); | |
976 message_dolog (": ", 2, 0, 0); | |
977 Vsignaling_function = Qnil; | |
978 } | |
979 | 969 |
980 /* For file-error, make error message by concatenating | 970 /* For file-error, make error message by concatenating |
981 all the data items. They are all strings. */ | 971 all the data items. They are all strings. */ |
982 if (!NILP (file_error) && CONSP (tail)) | 972 if (!NILP (file_error) && CONSP (tail)) |
983 errmsg = XCAR (tail), tail = XCDR (tail); | 973 errmsg = XCAR (tail), tail = XCDR (tail); |