changeset 30071:1a26ac604ea4

(print_error_message): If Vsignaling_function is set, show it in *Messages*.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 05 Jul 2000 17:22:52 +0000
parents 0c5df70bbee8
children da80009c3957
files src/print.c
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))