From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 29 Oct 2015 13:25:18 +0000 (-0400)
Subject: * lisp/emacs-lisp/bytecomp.el (compile-defun): Add defvars in scope.
X-Git-Tag: emacs-25.0.90~981
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c0d866dd690ffef08894dbce573c636ab0b42665;p=emacs.git

* lisp/emacs-lisp/bytecomp.el (compile-defun): Add defvars in scope.
---

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.")