From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 26 May 1995 03:57:42 +0000 (+0000)
Subject: (byte-compile-insert-header):
X-Git-Tag: emacs-19.34~3930
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=689cee2acc0942f27ef57f6b8c5cf6f4b21cbc55;p=emacs.git

(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.
---

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."
 	      ;; 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")
 	      )))