diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 8 |
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) | |||
| 1030 | static void | 1030 | static void |
| 1031 | load_warn_unescaped_character_literals (Lisp_Object file) | 1031 | load_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"); |