From: Kim F. Storm <storm@cua.dk>
Date: Mon, 12 Sep 2005 13:42:30 +0000 (+0000)
Subject: (message3): Pass copy of lisp string to message_dolog.
X-Git-Tag: emacs-pretest-22.0.90~7146
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4dd34197203197f86c0faf518b6e83d56d818ce;p=emacs.git

(message3): Pass copy of lisp string to message_dolog.
---

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;