From e4dd34197203197f86c0faf518b6e83d56d818ce Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Mon, 12 Sep 2005 13:42:30 +0000
Subject: [PATCH] (message3): Pass copy of lisp string to message_dolog.

---
 src/xdisp.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/xdisp.c b/src/xdisp.c
index a07e50aba89..0b34856aa6a 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -7061,7 +7061,15 @@ message3 (m, nbytes, multibyte)
   /* First flush out any partial line written with print.  */
   message_log_maybe_newline ();
   if (STRINGP (m))
-    message_dolog (SDATA (m), nbytes, 1, multibyte);
+    {
+      char *buffer;
+      USE_SAFE_ALLOCA;
+
+      SAFE_ALLOCA (buffer, char *, nbytes);
+      bcopy (SDATA (m), buffer, nbytes);
+      message_dolog (buffer, nbytes, 1, multibyte);
+      SAFE_FREE ();
+    }
   message3_nolog (m, nbytes, multibyte);
 
   UNGCPRO;
-- 
2.39.2