diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-08-25 23:18:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-08-25 23:18:39 +0000 |
| commit | 5f17a95a2f8745fda7daba062fd093a0a5f28472 (patch) | |
| tree | 0c8d64be092e44fea4d03672d7c6aa432ffba5ba /lisp/emacs-lisp | |
| parent | c4fb6a3cd68fdfc5cf8acc946482a76d1eb16e8d (diff) | |
| download | emacs-5f17a95a2f8745fda7daba062fd093a0a5f28472.tar.gz emacs-5f17a95a2f8745fda7daba062fd093a0a5f28472.tar.bz2 emacs-5f17a95a2f8745fda7daba062fd093a0a5f28472.zip | |
(byte-compile-insert-header):
Edit byte-compile-version to extract just the version number.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 9fbff6a3a1d..5784f21be8d 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 @@ With argument, insert value in current buffer after the form." " 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") |