From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 5 Jul 2000 17:22:52 +0000 (+0000)
Subject: (print_error_message): If Vsignaling_function is set,
X-Git-Tag: emacs-pretest-21.0.90~2954
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d462b4c3d79f705616326aa2bf7540293a66619;p=emacs.git

(print_error_message): If Vsignaling_function is set,
show it in *Messages*.
---

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