Mercurial > emacs
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; |