procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-compile-insert-header):

Browse source 
When using dynamic docstrings, refuse to load in 19.28 and older.
In that error message, don't mention the directory names.
This commit is contained in:
Karl Heuer 1995-05-26 03:57:42 +00:00
parent 6e4aafdc8a
commit 689cee2acc
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/bytecomp.el
View 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")
)))