# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1126532560 0
# Node ID 5780d53d7894bd1fd37dd75fa0ab5e704c890f6e
# Parent  c9bed10cbf6db69a92f03c23af590a8e8e7b4ec8
(print_error_message): Pass copy of caller name to message_dolog.

diff -r c9bed10cbf6d -r 5780d53d7894 src/print.c
--- a/src/print.c	Mon Sep 12 13:42:30 2005 +0000
+++ b/src/print.c	Mon Sep 12 13:42:40 2005 +0000
@@ -1025,7 +1025,9 @@
    *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);
     }