diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-09-12 13:42:40 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-09-12 13:42:40 +0000 |
| commit | 11fb15d5c492cdfcde124fcbb01e22c3467f3e93 (patch) | |
| tree | a1a6946ab5c8e9cff317f38a93cedc21b7876dde /src/print.c | |
| parent | e4dd34197203197f86c0faf518b6e83d56d818ce (diff) | |
| download | emacs-11fb15d5c492cdfcde124fcbb01e22c3467f3e93.tar.gz | |
(print_error_message): Pass copy of caller name to message_dolog.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 4 |
1 files changed, 3 insertions, 1 deletions
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); } |