aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPhilipp Stephani2020-04-12 11:58:36 +0200
committerPhilipp Stephani2020-04-12 11:58:36 +0200
commitc7ecc6bbc03af4c2746e2e8765dbbe5bf4a3a908 (patch)
tree19d508f17e5d1f148f64f6b716af63af9ad76e1f /src
parent9338b1307dfd08dff5f1c27a7202cb4412c6a502 (diff)
downloademacs-c7ecc6bbc03af4c2746e2e8765dbbe5bf4a3a908.tar.gz
emacs-c7ecc6bbc03af4c2746e2e8765dbbe5bf4a3a908.zip
Fix a bootstrap issue with unescaped character literal detection.
* src/lread.c (load_warn_unescaped_character_literals): Deal with the case that 'byte-run--unescaped-character-literals-warning' isn't yet defined.
Diffstat (limited to 'src')
-rw-r--r--src/lread.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c
index eabf3b938c2..8ec9e325049 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1030,7 +1030,13 @@ load_error_handler (Lisp_Object data)
1030static void 1030static void
1031load_warn_unescaped_character_literals (Lisp_Object file) 1031load_warn_unescaped_character_literals (Lisp_Object file)
1032{ 1032{
1033 Lisp_Object warning = call0 (Qbyte_run_unescaped_character_literals_warning); 1033 Lisp_Object function
1034 = Fsymbol_function (Qbyte_run_unescaped_character_literals_warning);
1035 /* If byte-run.el is being loaded,
1036 `byte-run--unescaped-character-literals-warning' isn't yet
1037 defined. Since it'll be byte-compiled later, ignore potential
1038 unescaped character literals. */
1039 Lisp_Object warning = NILP (function) ? Qnil : call0 (function);
1034 if (!NILP (warning)) 1040 if (!NILP (warning))
1035 { 1041 {
1036 AUTO_STRING (format, "Loading `%s': %s"); 1042 AUTO_STRING (format, "Loading `%s': %s");