From c0d866dd690ffef08894dbce573c636ab0b42665 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 29 Oct 2015 09:25:18 -0400 Subject: * lisp/emacs-lisp/bytecomp.el (compile-defun): Add defvars in scope. --- lisp/emacs-lisp/bytecomp.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/bytecomp.el') 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.") -- cgit v1.2.3