diff options
| author | Eli Zaretskii | 2017-05-20 14:53:06 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2017-05-20 14:53:06 +0300 |
| commit | 6c7bf039e9c2e6daf548a95204740eeaf4c61abd (patch) | |
| tree | 4fee993755b75a4783974eb444fad43d6afa2614 /src | |
| parent | 021430f4b48ceb43a443fe805cfe0b21e7829760 (diff) | |
| download | emacs-6c7bf039e9c2e6daf548a95204740eeaf4c61abd.tar.gz emacs-6c7bf039e9c2e6daf548a95204740eeaf4c61abd.zip | |
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)
Diffstat (limited to 'src')
| -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) | |||
| 960 | { | 960 | { |
| 961 | if (NILP (Vlread_unescaped_character_literals)) return; | 961 | if (NILP (Vlread_unescaped_character_literals)) return; |
| 962 | CHECK_CONS (Vlread_unescaped_character_literals); | 962 | CHECK_CONS (Vlread_unescaped_character_literals); |
| 963 | AUTO_STRING (format, | 963 | Lisp_Object format = |
| 964 | "Loading `%s': unescaped character literals %s detected!"); | 964 | build_string ("Loading `%s': unescaped character literals %s detected!"); |
| 965 | AUTO_STRING (separator, ", "); | 965 | Lisp_Object separator = build_string (", "); |
| 966 | AUTO_STRING (inner_format, "`?%c'"); | 966 | Lisp_Object inner_format = build_string ("`?%c'"); |
| 967 | CALLN (Fmessage, | 967 | CALLN (Fmessage, |
| 968 | format, file, | 968 | format, file, |
| 969 | Fmapconcat (list3 (Qlambda, list1 (Qchar), | 969 | Fmapconcat (list3 (Qlambda, list1 (Qchar), |