comparison src/xdisp.c @ 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 2b6f6e16b9b6
children 919f3c722163
comparison
equal deleted inserted replaced
38341:866f24accaaa 38342:8bcd8791cf6d
5497 Lisp_Object msg, fmt; 5497 Lisp_Object msg, fmt;
5498 char *buffer; 5498 char *buffer;
5499 int len; 5499 int len;
5500 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; 5500 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
5501 5501
5502 /* Do nothing if called asynchronously. Inserting text into
5503 a buffer may call after-change-functions and alike and
5504 that would means running Lisp asynchronously. */
5505 if (handling_signal)
5506 return;
5507
5502 fmt = msg = Qnil; 5508 fmt = msg = Qnil;
5503 GCPRO4 (fmt, msg, arg1, arg2); 5509 GCPRO4 (fmt, msg, arg1, arg2);
5504 5510
5505 args[0] = fmt = build_string (format); 5511 args[0] = fmt = build_string (format);
5506 args[1] = arg1; 5512 args[1] = arg1;