From 1d462b4c3d79f705616326aa2bf7540293a66619 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 5 Jul 2000 17:22:52 +0000 Subject: [PATCH] (print_error_message): If Vsignaling_function is set, show it in *Messages*. --- src/print.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/print.c b/src/print.c index 1943ed4082f..2ba860b857c 100644 --- a/src/print.c +++ b/src/print.c @@ -888,6 +888,16 @@ print_error_message (data, stream) tail = Fcdr_safe (data); GCPRO1 (tail); + /* If we know from where the error was signaled, show it in + *Messages*. */ + if (!NILP (Vsignaling_function) && SYMBOLP (Vsignaling_function)) + { + char *name = XSYMBOL (Vsignaling_function)->name->data; + message_dolog (name, strlen (name), 0, 0); + message_dolog (": ", 2, 0, 0); + Vsignaling_function = Qnil; + } + /* For file-error, make error message by concatenating all the data items. They are all strings. */ if (!NILP (file_error) && CONSP (tail)) -- 2.39.2