From fd20f0150d8211fc83f8a5d57d43cbd3beee17e5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 26 Aug 1996 14:46:44 +0000 Subject: [PATCH] (byte-compile-insert-header): Fix previous change. --- lisp/emacs-lisp/bytecomp.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 5784f21be8d..30e92ca8982 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: 2.12 $") +(defconst byte-compile-version "$Revision: 2.13 $") ;; This file is part of GNU Emacs. @@ -1417,9 +1417,8 @@ With argument, insert value in current buffer after the form." (current-time-string) "\n;;; from file " filename "\n") (insert ";;; in Emacs version " emacs-version "\n") (insert ";;; with bytecomp version " - (progn (string-match "\\$Revision: \\(.*\\) \\$" - byte-compile-version) - (replace-match "\\1" nil nil byte-compile-version)) + (progn (string-match "[0-9.]+" byte-compile-version) + (match-string 0 byte-compile-version)) "\n;;; " (cond ((eq byte-optimize 'source) "with source-level optimization only") -- 2.11.4.GIT