diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2019-06-04 21:26:06 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2019-06-10 18:27:22 -0400 |
| commit | 0026d0bf9f4e4e0247de9c1eb885507608378266 (patch) | |
| tree | b330d22ab718de52a60de728cc344485a457d3fb /lisp/emacs-lisp | |
| parent | 03b66d23a863835484267a8085bb9112d9bdecae (diff) | |
| download | emacs-0026d0bf9f4e4e0247de9c1eb885507608378266.tar.gz emacs-0026d0bf9f4e4e0247de9c1eb885507608378266.tar.bz2 emacs-0026d0bf9f4e4e0247de9c1eb885507608378266.zip | |
Don't keep warning about unescaped literals (Bug#36068)
* lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Restore lost
let-binding of lread--unescaped-character-literals, so that unescaped
literals warning will only apply to the form just read.
* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-tests--unescaped-char-literals): Expand test to check that
we don't keep warning about old unescaped literals.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 38cce14fd62..f2a38a9c6c3 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2093,8 +2093,9 @@ With argument ARG, insert value in current buffer after the form." (not (eobp))) (setq byte-compile-read-position (point) byte-compile-last-position byte-compile-read-position) - (let ((form (read inbuffer)) - (warning (byte-run--unescaped-character-literals-warning))) + (let* ((lread--unescaped-character-literals nil) + (form (read inbuffer)) + (warning (byte-run--unescaped-character-literals-warning))) (when warning (byte-compile-warn "%s" warning)) (byte-compile-toplevel-file-form form))) ;; Compile pending forms at end of file. |