diff options
| author | Philipp Stephani <phst@google.com> | 2020-04-12 11:58:36 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2020-04-12 11:58:36 +0200 |
| commit | c7ecc6bbc03af4c2746e2e8765dbbe5bf4a3a908 (patch) | |
| tree | 19d508f17e5d1f148f64f6b716af63af9ad76e1f /src/lread.c | |
| parent | 9338b1307dfd08dff5f1c27a7202cb4412c6a502 (diff) | |
| download | emacs-c7ecc6bbc03af4c2746e2e8765dbbe5bf4a3a908.tar.gz emacs-c7ecc6bbc03af4c2746e2e8765dbbe5bf4a3a908.tar.bz2 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/lread.c')
| -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) static void load_warn_unescaped_character_literals (Lisp_Object file) { - Lisp_Object warning = call0 (Qbyte_run_unescaped_character_literals_warning); + Lisp_Object function + = Fsymbol_function (Qbyte_run_unescaped_character_literals_warning); + /* If byte-run.el is being loaded, + `byte-run--unescaped-character-literals-warning' isn't yet + defined. Since it'll be byte-compiled later, ignore potential + unescaped character literals. */ + Lisp_Object warning = NILP (function) ? Qnil : call0 (function); if (!NILP (warning)) { AUTO_STRING (format, "Loading `%s': %s"); |