diff options
| author | Philipp Stephani | 2020-04-12 11:58:36 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2020-04-12 11:58:36 +0200 |
| commit | c7ecc6bbc03af4c2746e2e8765dbbe5bf4a3a908 (patch) | |
| tree | 19d508f17e5d1f148f64f6b716af63af9ad76e1f /src | |
| parent | 9338b1307dfd08dff5f1c27a7202cb4412c6a502 (diff) | |
| download | emacs-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.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"); |