changeset 38342:8bcd8791cf6d

(add_to_log): Do nothing if called asynchronously.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 10 Jul 2001 10:44:19 +0000
parents 866f24accaaa
children cd04db2125b7
files src/xdisp.c
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/xdisp.c	Tue Jul 10 08:14:32 2001 +0000
+++ b/src/xdisp.c	Tue Jul 10 10:44:19 2001 +0000
@@ -5499,6 +5499,12 @@
   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);