(print_error_message): Don't handle Vsignaling_function here.

diff --git a/src/ChangeLog b/src/ChangeLog
index 99b53bf2cc2120ff7f554372fab8b7a606472a7f..7db4b0b41e01044e1ceda45b37ce4b158eb4317a 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,9 +1,41 @@
+2002-07-12  Richard M. Stallman  <rms@gnu.org>
+
+       * print.c (print_error_message): Don't handle Vsignaling_function here.
+
+       * keyboard.c (cmd_error_internal): Handle Vsignaling_function here.
+       (command_loop_1): Avoid certain actions after memory-full error.
+
+       * eval.c (Fsignal): Don't call cancel_hourglass.
+       For a memory-full error, don't call Vsignal_hook_function
+       and don't set Vsignaling_function.
+
+       * process.c (process_send_signal): Add abort call.
+
 2002-07-11  Markus Rost  <rost@math.ohio-state.edu>
 
        * keymap.c (Fkey_binding): Fix typo.
 
 2002-07-11  Richard M. Stallman  <rms@gnu.org>
 
+       * alloc.c (Vmemory_full): New variable.
+       (Vmemory_signal_data): Renamed from memory_signal_data.
+       Uses changed.
+       (syms_of_alloc): Defvar them.
+       (memory_full, buffer_memory_full): Set Vmemory_full.
+       
+       * lisp.h (Vmemory_full): Add declaration.
+       (current_column, indented_beyond_p): Change declaration.
+
+       * indent.c (last_known_column): Declare as double, not float.
+       (current_column, current_column_1, string_display_width)
+       (position_indentation): Return `double'.
+       (indented_beyond_p): Arg `column' is `double'.  Callers changed.
+       
+       * xdisp.c (message_dolog): Do nothing if Vmemory_full is non-nil.
+       (back_to_previous_visible_line_start) 
+       (reseat_at_next_visible_line_start, next_element_from_buffer): 
+       Use `double', not `float', when calling indented_beyond_p.
+
        * s/hpux11.h (BROKEN_SA_RESTART): Defined.
 
        * sysdep.c (sys_signal): Test BROKEN_SA_RESTART.

diff --git a/src/print.c b/src/print.c
index 90d55615bc7dbaffa9718d08de36ec8256e5709d..1a68eaa9942b4253fab132f84644780b7f786258 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -967,16 +967,6 @@ 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 = XSTRING (SYMBOL_NAME (Vsignaling_function))->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))