Mercurial > emacs
changeset 15927:9b6ae5c1a0bf
(byte-compile-insert-header):
Edit byte-compile-version to extract just the version number.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 25 Aug 1996 23:18:39 +0000 |
| parents | 9971d00ddaa7 |
| children | 2882af484d9c |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Sun Aug 25 23:14:30 1996 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sun Aug 25 23:18:39 1996 +0000 @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision:$") +(defconst byte-compile-version "$Revision: 2.12 $") ;; This file is part of GNU Emacs. @@ -1416,7 +1416,11 @@ " on " (current-time-string) "\n;;; from file " filename "\n") (insert ";;; in Emacs version " emacs-version "\n") - (insert ";;; with bytecomp version " byte-compile-version "\n;;; " + (insert ";;; with bytecomp version " + (progn (string-match "\\$Revision: \\(.*\\) \\$" + byte-compile-version) + (replace-match "\\1" nil nil byte-compile-version)) + "\n;;; " (cond ((eq byte-optimize 'source) "with source-level optimization only") ((eq byte-optimize 'byte) "with byte-level optimization only")