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.

11927:20eae371b3f0

      (insert ";;; this file uses opcodes which do not exist in Emacs 18.\n"
	      ;; Have to check if emacs-version is bound so that this works
	      ;; 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"
	      "    (error \"`"
	      ;; This escapes all backslashes in FILENAME.  Needed on Windows.
	      (substring (prin1-to-string filename) 1 -1)
	      "' was compiled for Emacs 19\"))\n\n"
	      )))


(defun byte-compile-output-file-form (form)
  ;; writes the given form to the output buffer, being careful of docstrings

11928:ed1176437be9

      (insert ";;; this file uses opcodes which do not exist in Emacs 18.\n"
	      ;; Have to check if emacs-version is bound so that this works
	      ;; in files loaded early in loadup.el.
	      "\n(if (and (boundp 'emacs-version)\n"
	      "\t (or (and (boundp 'epoch::version) epoch::version)\n"
	      (if byte-compile-dynamic-docstrings
		  "\t     (string-lessp emacs-version \"19.28.90\")))\n"
		"\t     (string-lessp emacs-version \"19\")))\n")
	      "    (error \"`"
	      ;; 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")
	      )))


(defun byte-compile-output-file-form (form)
  ;; writes the given form to the output buffer, being careful of docstrings