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

2015-10-29 09:25:18 -04:00 · 2015-10-29 09:25:18 -04:00 · c0d866dd69
commit c0d866dd69
parent 270a17fe4d
1 changed files with 4 additions and 1 deletions
--- 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.")