Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 12726:835314018265
(byte-compile-insert-header): If compiling for vers 18,
arrange to set current-load-list when loadingthe file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Jul 1995 19:03:26 +0000 |
| parents | 176c42cc7eeb |
| children | 913a19cf074a |
comparison
equal
deleted
inserted
replaced
| 12725:968d38f57f3a | 12726:835314018265 |
|---|---|
| 1408 ;; prin1-to-string is used to quote backslashes. | 1408 ;; prin1-to-string is used to quote backslashes. |
| 1409 (substring (prin1-to-string (file-name-nondirectory filename)) | 1409 (substring (prin1-to-string (file-name-nondirectory filename)) |
| 1410 1 -1) | 1410 1 -1) |
| 1411 (if byte-compile-dynamic-docstrings | 1411 (if byte-compile-dynamic-docstrings |
| 1412 "' was compiled for Emacs 19.29 or later\"))\n\n" | 1412 "' was compiled for Emacs 19.29 or later\"))\n\n" |
| 1413 "' was compiled for Emacs 19\"))\n\n") | 1413 "' was compiled for Emacs 19\"))\n\n")) |
| 1414 ))) | 1414 (insert "(or (boundp 'current-load-list) (setq current-load-list nil))\n" |
| 1415 "\n") | |
| 1416 )) | |
| 1415 | 1417 |
| 1416 | 1418 |
| 1417 (defun byte-compile-output-file-form (form) | 1419 (defun byte-compile-output-file-form (form) |
| 1418 ;; writes the given form to the output buffer, being careful of docstrings | 1420 ;; writes the given form to the output buffer, being careful of docstrings |
| 1419 ;; in defun, defmacro, defvar, defconst and autoload because make-docfile is | 1421 ;; in defun, defmacro, defvar, defconst and autoload because make-docfile is |