From dfc22242b5b96d0344fdadb23e723e2f637af40f Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 12 Sep 2005 13:42:49 +0000 Subject: [PATCH] (auto_save_error): Pass copy of lisp string to message2. --- src/fileio.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/fileio.c b/src/fileio.c index 53ae967e285..a51371be0e6 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -5769,6 +5769,8 @@ auto_save_error (error) Lisp_Object args[3], msg; int i, nbytes; struct gcpro gcpro1; + char *msgbuf; + USE_SAFE_ALLOCA; ring_bell (); @@ -5778,13 +5780,15 @@ auto_save_error (error) msg = Fformat (3, args); GCPRO1 (msg); nbytes = SBYTES (msg); + SAFE_ALLOCA (msgbuf, char *, nbytes); + bcopy (SDATA (msg), msgbuf, nbytes); for (i = 0; i < 3; ++i) { if (i == 0) - message2 (SDATA (msg), nbytes, STRING_MULTIBYTE (msg)); + message2 (msgbuf, nbytes, STRING_MULTIBYTE (msg)); else - message2_nolog (SDATA (msg), nbytes, STRING_MULTIBYTE (msg)); + message2_nolog (msgbuf, nbytes, STRING_MULTIBYTE (msg)); Fsleep_for (make_number (1), Qnil); } -- 2.39.2