mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-insert-header): If emacs-version

Browse source 
ends with a letter, don't check the version number.
This commit is contained in:
Richard M. Stallman 1996-12-07 20:34:15 +00:00
parent e7e09325ce
commit 666ef0083b
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/bytecomp.el
View file

@ -10,7 +10,7 @@
;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.21 $")
(defconst byte-compile-version "$Revision: 2.22 $")
;; This file is part of GNU Emacs.
@ -1437,6 +1437,9 @@ 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"
;; If there is a name at the end of emacs-version,
;; don't try to check the version number.
"\t (< (aref emacs-version (1- (length emacs-version))) ?A)"
(if dynamic-docstrings
"\t (string-lessp emacs-version \"19.29\")))\n"
"\t (string-lessp emacs-version \"19\")))\n")