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);