From 484cd5b16c02ec5c277092ee8d3e165aeca41fad Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 Jul 1995 19:03:26 +0000 Subject: [PATCH] (byte-compile-insert-header): If compiling for vers 18, arrange to set current-load-list when loadingthe file. --- lisp/emacs-lisp/bytecomp.el | 6 ++++-- 1 file 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) -- 2.39.2