From: Richard M. Stallman Date: Mon, 26 Aug 1996 14:46:44 +0000 (+0000) Subject: (byte-compile-insert-header): Fix previous change. X-Git-Tag: emacs-20.1~4014 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd20f0150d8211fc83f8a5d57d43cbd3beee17e5;p=emacs.git (byte-compile-insert-header): Fix previous change. --- 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")