aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-05-26 03:57:42 +0000
committerKarl Heuer1995-05-26 03:57:42 +0000
commit689cee2acc0942f27ef57f6b8c5cf6f4b21cbc55 (patch)
tree793c2d579155a26fa26bbdb4b0998e5eca1649ca
parent6e4aafdc8a5bf0bcbe758e2790309ffe3541f05e (diff)
downloademacs-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.el13
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