From 11fb15d5c492cdfcde124fcbb01e22c3467f3e93 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 12 Sep 2005 13:42:40 +0000 Subject: (print_error_message): Pass copy of caller name to message_dolog. --- src/print.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/print.c b/src/print.c index 65c48b6d82..2ba749aff4 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); } -- cgit v1.2.3