diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2017-05-20 14:53:06 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2017-05-20 14:53:06 +0300 |
| commit | 6c7bf039e9c2e6daf548a95204740eeaf4c61abd (patch) | |
| tree | 4fee993755b75a4783974eb444fad43d6afa2614 | |
| parent | 021430f4b48ceb43a443fe805cfe0b21e7829760 (diff) | |
| download | emacs-6c7bf039e9c2e6daf548a95204740eeaf4c61abd.tar.gz | |
Avoid crashes in GC due to unescaped characters warning
* src/lread.c (load_warn_unescaped_character_literals): Don't cons
Lisp objects from stack-based variables. (Bug#26961)
| -rw-r--r-- | src/lread.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c index 5e737d690c6..9e2168e7db4 100644 --- a/src/lread.c +++ b/src/lread.c @@ -960,10 +960,10 @@ load_warn_unescaped_character_literals (Lisp_Object file) { if (NILP (Vlread_unescaped_character_literals)) return; CHECK_CONS (Vlread_unescaped_character_literals); - AUTO_STRING (format, - "Loading `%s': unescaped character literals %s detected!"); - AUTO_STRING (separator, ", "); - AUTO_STRING (inner_format, "`?%c'"); + Lisp_Object format = + build_string ("Loading `%s': unescaped character literals %s detected!"); + Lisp_Object separator = build_string (", "); + Lisp_Object inner_format = build_string ("`?%c'"); CALLN (Fmessage, format, file, Fmapconcat (list3 (Qlambda, list1 (Qchar), |