]> code.delx.au - gnu-emacs/commitdiff
(byte-compile-insert-header):
authorKarl Heuer <kwzh@gnu.org>
Fri, 26 May 1995 03:57:42 +0000 (03:57 +0000)
committerKarl Heuer <kwzh@gnu.org>
Fri, 26 May 1995 03:57:42 +0000 (03:57 +0000)
When using dynamic docstrings, refuse to load in 19.28 and older.
In that error message, don't mention the directory names.

lisp/emacs-lisp/bytecomp.el

index ea3ceb4ed814bee780388b78e1c6824b733e35b1..9fadfc53748bd254f5d62964c7364897c5124e46 100644 (file)
@@ -1401,11 +1401,16 @@ With argument, insert value in current buffer after the form."
              ;; in files loaded early in loadup.el.
              "\n(if (and (boundp 'emacs-version)\n"
              "\t (or (and (boundp 'epoch::version) epoch::version)\n"
-             "\t     (string-lessp emacs-version \"19\")))\n"
+             (if byte-compile-dynamic-docstrings
+                 "\t     (string-lessp emacs-version \"19.28.90\")))\n"
+               "\t     (string-lessp emacs-version \"19\")))\n")
              "    (error \"`"
-             ;; This escapes all backslashes in FILENAME.  Needed on Windows.
-             (substring (prin1-to-string filename) 1 -1)
-             "' was compiled for Emacs 19\"))\n\n"
+             ;; prin1-to-string is used to quote backslashes.
+             (substring (prin1-to-string (file-name-nondirectory filename))
+                        1 -1)
+             (if byte-compile-dynamic-docstrings
+                 "' was compiled for Emacs 19.29 or later\"))\n\n"
+               "' was compiled for Emacs 19\"))\n\n")
              )))