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

(print_error_message): Pass copy of caller name to message_dolog.
---

diff --git a/src/print.c b/src/print.c
index 65c48b6d82b..2ba749aff44 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1025,7 +1025,9 @@ print_error_message (data, stream, context, caller)
    *Messages*.  */
   if (!NILP (caller) && SYMBOLP (caller))
     {
-      const char *name = SDATA (SYMBOL_NAME (caller));
+      Lisp_Object cname = SYMBOL_NAME (caller);
+      char *name = alloca (SBYTES (cname));
+      bcopy (SDATA (cname), name, SBYTES (cname));
       message_dolog (name, strlen (name), 0, 0);
       message_dolog (": ", 2, 0, 0);
     }