5769 |
Lisp_Object args[3], msg; |
Lisp_Object args[3], msg; |
5770 |
int i, nbytes; |
int i, nbytes; |
5771 |
struct gcpro gcpro1; |
struct gcpro gcpro1; |
5772 |
|
char *msgbuf; |
5773 |
|
USE_SAFE_ALLOCA; |
5774 |
|
|
5775 |
ring_bell (); |
ring_bell (); |
5776 |
|
|
5780 |
msg = Fformat (3, args); |
msg = Fformat (3, args); |
5781 |
GCPRO1 (msg); |
GCPRO1 (msg); |
5782 |
nbytes = SBYTES (msg); |
nbytes = SBYTES (msg); |
5783 |
|
SAFE_ALLOCA (msgbuf, char *, nbytes); |
5784 |
|
bcopy (SDATA (msg), msgbuf, nbytes); |
5785 |
|
|
5786 |
for (i = 0; i < 3; ++i) |
for (i = 0; i < 3; ++i) |
5787 |
{ |
{ |
5788 |
if (i == 0) |
if (i == 0) |
5789 |
message2 (SDATA (msg), nbytes, STRING_MULTIBYTE (msg)); |
message2 (msgbuf, nbytes, STRING_MULTIBYTE (msg)); |
5790 |
else |
else |
5791 |
message2_nolog (SDATA (msg), nbytes, STRING_MULTIBYTE (msg)); |
message2_nolog (msgbuf, nbytes, STRING_MULTIBYTE (msg)); |
5792 |
Fsleep_for (make_number (1), Qnil); |
Fsleep_for (make_number (1), Qnil); |
5793 |
} |
} |
5794 |
|
|