diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-01-22 00:52:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-01-22 00:52:51 +0000 |
| commit | 3e6eef952574d43b6eb6004a30ba02234bd4c13b (patch) | |
| tree | 9df821b6616151f7d807231f8fe0c84fa86762bb /lisp/emacs-lisp | |
| parent | ee6bcc944a43ff57af8297f879fbb01f4b0223e6 (diff) | |
| download | emacs-3e6eef952574d43b6eb6004a30ba02234bd4c13b.tar.gz emacs-3e6eef952574d43b6eb6004a30ba02234bd4c13b.tar.bz2 emacs-3e6eef952574d43b6eb6004a30ba02234bd4c13b.zip | |
(byte-compile-defvar): Add the var to current-load-list.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 5 insertions, 0 deletions
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))))) |