From: Richard M. Stallman Date: Sun, 30 Jul 1995 19:03:26 +0000 (+0000) Subject: (byte-compile-insert-header): If compiling for vers 18, X-Git-Tag: emacs-19.34~3134 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=484cd5b16c02ec5c277092ee8d3e165aeca41fad;p=emacs.git (byte-compile-insert-header): If compiling for vers 18, arrange to set current-load-list when loadingthe file. --- 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)