diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-10-29 09:25:18 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-10-29 10:31:40 -0400 |
| commit | c0d866dd690ffef08894dbce573c636ab0b42665 (patch) | |
| tree | 92d321fa368fa42f8b801c6991e23d3122d84b52 /lisp/emacs-lisp | |
| parent | 270a17fe4d357d64cfef7a3991e6a69db587a3fb (diff) | |
| download | emacs-c0d866dd690ffef08894dbce573c636ab0b42665.tar.gz emacs-c0d866dd690ffef08894dbce573c636ab0b42665.tar.bz2 emacs-c0d866dd690ffef08894dbce573c636ab0b42665.zip | |
* lisp/emacs-lisp/bytecomp.el (compile-defun): Add defvars in scope.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index d138effcd9d..db200f3c504 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1901,7 +1901,10 @@ With argument ARG, insert value in current buffer after the form." (let ((read-with-symbol-positions (current-buffer)) (read-symbol-positions-list nil)) (displaying-byte-compile-warnings - (byte-compile-sexp (read (current-buffer))))) + (byte-compile-sexp + (eval-sexp-add-defvars + (read (current-buffer)) + byte-compile-read-position)))) lexical-binding))) (cond (arg (message "Compiling from buffer... done.") |