From 3e6eef952574d43b6eb6004a30ba02234bd4c13b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 22 Jan 1995 00:52:51 +0000 Subject: (byte-compile-defvar): Add the var to current-load-list. --- lisp/emacs-lisp/bytecomp.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lisp/emacs-lisp/bytecomp.el') 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))))) -- cgit v1.2.3