Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82

[bpt/emacs.git] / src / print.c

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