Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 11928:ed1176437be9
(byte-compile-insert-header):
When using dynamic docstrings, refuse to load in 19.28 and older.
In that error message, don't mention the directory names.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 26 May 1995 03:57:42 +0000 |
parents | 1a50b9d542ce |
children | b657158dd5c9 |
comparison
equal
deleted
inserted
replaced
11927:20eae371b3f0 | 11928:ed1176437be9 |
---|---|
1399 (insert ";;; this file uses opcodes which do not exist in Emacs 18.\n" | 1399 (insert ";;; this file uses opcodes which do not exist in Emacs 18.\n" |
1400 ;; Have to check if emacs-version is bound so that this works | 1400 ;; Have to check if emacs-version is bound so that this works |
1401 ;; in files loaded early in loadup.el. | 1401 ;; in files loaded early in loadup.el. |
1402 "\n(if (and (boundp 'emacs-version)\n" | 1402 "\n(if (and (boundp 'emacs-version)\n" |
1403 "\t (or (and (boundp 'epoch::version) epoch::version)\n" | 1403 "\t (or (and (boundp 'epoch::version) epoch::version)\n" |
1404 "\t (string-lessp emacs-version \"19\")))\n" | 1404 (if byte-compile-dynamic-docstrings |
1405 "\t (string-lessp emacs-version \"19.28.90\")))\n" | |
1406 "\t (string-lessp emacs-version \"19\")))\n") | |
1405 " (error \"`" | 1407 " (error \"`" |
1406 ;; This escapes all backslashes in FILENAME. Needed on Windows. | 1408 ;; prin1-to-string is used to quote backslashes. |
1407 (substring (prin1-to-string filename) 1 -1) | 1409 (substring (prin1-to-string (file-name-nondirectory filename)) |
1408 "' was compiled for Emacs 19\"))\n\n" | 1410 1 -1) |
1411 (if byte-compile-dynamic-docstrings | |
1412 "' was compiled for Emacs 19.29 or later\"))\n\n" | |
1413 "' was compiled for Emacs 19\"))\n\n") | |
1409 ))) | 1414 ))) |
1410 | 1415 |
1411 | 1416 |
1412 (defun byte-compile-output-file-form (form) | 1417 (defun byte-compile-output-file-form (form) |
1413 ;; writes the given form to the output buffer, being careful of docstrings | 1418 ;; writes the given form to the output buffer, being careful of docstrings |