(byte-compile-defvar): Add the var to current-load-list.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 5c8d20f3da7ccbaed9f16feca5b16f55c06e8dab..54776e1810ca895807a2765ba30790b68e2fcc48 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2887,6 +2887,11 @@ If FORM is a lambda or a macro, byte-compile it as a function."
                   (list 'setq var value)
                 (list 'or (list 'boundp (list 'quote var))
                       (list 'setq var value))))
+          ;; Put the defined variable in this library's load-history entry
+          ;; just as a real defvar would.
+          (list 'setq 'current-load-list
+                (list 'cons (list 'quote var)
+                      'current-load-list))
           (if string 
               (list 'put (list 'quote var) ''variable-documentation string))
           (list 'quote var)))))