aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
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");