]> git.eshelyaron.com Git - emacs.git/commitdiff
Avoid crashes in GC due to unescaped characters warning
authorEli Zaretskii <eliz@gnu.org>
Sat, 20 May 2017 11:53:06 +0000 (14:53 +0300)
committerEli Zaretskii <eliz@gnu.org>
Sat, 20 May 2017 11:53:06 +0000 (14:53 +0300)
* src/lread.c (load_warn_unescaped_character_literals): Don't cons
Lisp objects from stack-based variables.  (Bug#26961)

src/lread.c

index 5e737d690c605cd878a861f4fccedb5cefb7fd5d..9e2168e7db49678936b228f4f4e8f5cca0b21e02 100644 (file)
@@ -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),