diff options
| author | Karl Heuer | 1995-05-26 03:57:42 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-26 03:57:42 +0000 |
| commit | 689cee2acc0942f27ef57f6b8c5cf6f4b21cbc55 (patch) | |
| tree | 793c2d579155a26fa26bbdb4b0998e5eca1649ca | |
| parent | 6e4aafdc8a5bf0bcbe758e2790309ffe3541f05e (diff) | |
| download | emacs-689cee2acc0942f27ef57f6b8c5cf6f4b21cbc55.tar.gz emacs-689cee2acc0942f27ef57f6b8c5cf6f4b21cbc55.zip | |
(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.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index ea3ceb4ed81..9fadfc53748 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -1401,11 +1401,16 @@ With argument, insert value in current buffer after the form." | |||
| 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 | ||