(byte-compile-insert-header): If compiling for vers 18,

arrange to set current-load-list when loadingthe file.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index fccba021a8e..dd832fae11e 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1410,8 +1410,10 @@ With argument, insert value in current buffer after the form."
                          1 -1)
               (if byte-compile-dynamic-docstrings
                   "' was compiled for Emacs 19.29 or later\"))\n\n"
-                "' was compiled for Emacs 19\"))\n\n")
-              )))
+                "' was compiled for Emacs 19\"))\n\n"))
+    (insert "(or (boundp 'current-load-list) (setq current-load-list nil))\n"
+            "\n")
+    ))
 
 
 (defun byte-compile-output-file-form (form)