From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Jan 1995 00:52:51 +0000 (+0000)
Subject: (byte-compile-defvar): Add the var to current-load-list.
X-Git-Tag: emacs-19.34~5344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e6eef952574d43b6eb6004a30ba02234bd4c13b;p=emacs.git

(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 5c8d20f3da7..54776e1810c 100644
--- 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)))))