# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 790735971 0
# Node ID 0b52bc04c180b6ceece44c2def82a97d9e89a910
# Parent  e4423ed2b4cb89681cdccde1c1c9b0451c8cb785
(byte-compile-defvar): Add the var to current-load-list.

diff -r e4423ed2b4cb -r 0b52bc04c180 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Sat Jan 21 23:51:19 1995 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sun Jan 22 00:52:51 1995 +0000
@@ -2887,6 +2887,11 @@
 		   (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)))))