/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.699 by lektu, Fri Jul 19 10:33:44 2002 UTC revision 1.700 by rms, Sat Jul 20 21:47:00 2002 UTC
# Line 1202  cmd_error_internal (data, context) Line 1202  cmd_error_internal (data, context)
1202    else    else
1203      {      {
1204        Fdiscard_input ();        Fdiscard_input ();
1205          message_log_maybe_newline ();
1206        bitch_at_user ();        bitch_at_user ();
1207        stream = Qt;        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;  
         }  
1208      }      }
1209    
1210    if (context != 0)    /* The immediate context is not interesting for Quits,
1211      write_string_1 (context, -1, stream);       since they are asyncronous.  */
1212      if (EQ (XCAR (data), Qquit))
1213        Vsignaling_function = Qnil;
1214      
1215      print_error_message (data, stream, context, Vsignaling_function);
1216    
1217    print_error_message (data, stream);    Vsignaling_function = Qnil;
1218    
1219    /* If the window system or terminal frame hasn't been initialized    /* If the window system or terminal frame hasn't been initialized
1220       yet, or we're in -batch mode, this error should cause Emacs to exit.  */       yet, or we're in -batch mode, this error should cause Emacs to exit.  */

Legend:
Removed from v.1.699  
changed lines
  Added in v.1.700

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26