# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1126566659 0
# Node ID 6dd5312b60a77994b7547b691ec6f617d2e9d598
# Parent  d4ba4c352e569dd03714bf47732671549358b0ab
(print_error_message): Fix last change.

diff -r d4ba4c352e56 -r 6dd5312b60a7 src/print.c
--- a/src/print.c	Mon Sep 12 23:10:48 2005 +0000
+++ b/src/print.c	Mon Sep 12 23:10:59 2005 +0000
@@ -1028,7 +1028,7 @@
       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 (name, SBYTES (cname), 0, 0);
       message_dolog (": ", 2, 0, 0);
     }