(add_to_log): Do nothing if called asynchronously.

diff --git a/src/ChangeLog b/src/ChangeLog
index 67be01f753b55919112cc1498da875f9254b3e92..0e66830d018e3d6c4fef8ceb4afe21770c364df0 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-07-10  Gerd Moellmann  <gerd@gnu.org>
+
+       * xdisp.c (add_to_log): Do nothing if called asynchronously.
+
 2001-07-09  Gerd Moellmann  <gerd@gnu.org>
 
        * sound.c (toplevel): Include <signal.h> and "syssignal.h".

diff --git a/src/xdisp.c b/src/xdisp.c
index fa775d87d1b2d54e54e1444fefec8f4af6290d1a..f0c919fecc035597169a189e51622768da4ddd2b 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -5499,6 +5499,12 @@ add_to_log (format, arg1, arg2)
   int len;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
 
+  /* Do nothing if called asynchronously.  Inserting text into
+     a buffer may call after-change-functions and alike and
+     that would means running Lisp asynchronously.  */
+  if (handling_signal)
+    return;
+
   fmt = msg = Qnil;
   GCPRO4 (fmt, msg, arg1, arg2);