# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962817772 0
# Node ID 1a26ac604ea470c13949ab6fb2929ef347cdb66a
# Parent  0c5df70bbee888c555c45a97cc5f0073cbae4977
(print_error_message): If Vsignaling_function is set,
show it in *Messages*.

diff -r 0c5df70bbee8 -r 1a26ac604ea4 src/print.c
--- a/src/print.c	Wed Jul 05 17:21:29 2000 +0000
+++ b/src/print.c	Wed Jul 05 17:22:52 2000 +0000
@@ -888,6 +888,16 @@
   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))