From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 20 Jul 2002 21:47:00 +0000 (+0000)
Subject: (cmd_error_internal): Pass Vsignaling_function
X-Git-Tag: ttn-vms-21-2-B4~13958
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc4854ce115eeb86201afb4905c4f5e845988343;p=emacs.git

(cmd_error_internal): Pass Vsignaling_function
and CONTEXT to print_error_message, don't print them here.
For a Quit, don't use Vsignaling_function.
Call message_log_maybe_newline.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index e2f2b74cd6b..0647d532867 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1202,24 +1202,19 @@ cmd_error_internal (data, context)
   else
     {
       Fdiscard_input ();
+      message_log_maybe_newline ();
       bitch_at_user ();
       stream = Qt;
-
-      /* If we know from where the error was signaled, show it in
-	 *Messages*.  */
-      if (!NILP (Vsignaling_function) && SYMBOLP (Vsignaling_function))
-	{
-	  const char *name = SDATA (SYMBOL_NAME (Vsignaling_function));
-	  message_dolog (name, strlen (name), 0, 0);
-	  message_dolog (": ", 2, 0, 0);
-	  Vsignaling_function = Qnil;
-	}
     }
 
-  if (context != 0)
-    write_string_1 (context, -1, stream);
+  /* The immediate context is not interesting for Quits,
+     since they are asyncronous.  */
+  if (EQ (XCAR (data), Qquit))
+    Vsignaling_function = Qnil;
+  
+  print_error_message (data, stream, context, Vsignaling_function);
 
-  print_error_message (data, stream);
+  Vsignaling_function = Qnil;
 
   /* If the window system or terminal frame hasn't been initialized
      yet, or we're in -batch mode, this error should cause Emacs to exit.  */