From 5f17a95a2f8745fda7daba062fd093a0a5f28472 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 25 Aug 1996 23:18:39 +0000 Subject: [PATCH] (byte-compile-insert-header): Edit byte-compile-version to extract just the version number. --- lisp/emacs-lisp/bytecomp.el | 8 ++++++-- 1 file 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") -- 2.39.2