diff options
| -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 @@ | |||
| 10 | 10 | ||
| 11 | ;;; This version incorporates changes up to version 2.10 of the | 11 | ;;; This version incorporates changes up to version 2.10 of the |
| 12 | ;;; Zawinski-Furuseth compiler. | 12 | ;;; Zawinski-Furuseth compiler. |
| 13 | (defconst byte-compile-version "$Revision:$") | 13 | (defconst byte-compile-version "$Revision: 2.12 $") |
| 14 | 14 | ||
| 15 | ;; This file is part of GNU Emacs. | 15 | ;; This file is part of GNU Emacs. |
| 16 | 16 | ||
| @@ -1416,7 +1416,11 @@ With argument, insert value in current buffer after the form." | |||
| 1416 | " on " | 1416 | " on " |
| 1417 | (current-time-string) "\n;;; from file " filename "\n") | 1417 | (current-time-string) "\n;;; from file " filename "\n") |
| 1418 | (insert ";;; in Emacs version " emacs-version "\n") | 1418 | (insert ";;; in Emacs version " emacs-version "\n") |
| 1419 | (insert ";;; with bytecomp version " byte-compile-version "\n;;; " | 1419 | (insert ";;; with bytecomp version " |
| 1420 | (progn (string-match "\\$Revision: \\(.*\\) \\$" | ||
| 1421 | byte-compile-version) | ||
| 1422 | (replace-match "\\1" nil nil byte-compile-version)) | ||
| 1423 | "\n;;; " | ||
| 1420 | (cond | 1424 | (cond |
| 1421 | ((eq byte-optimize 'source) "with source-level optimization only") | 1425 | ((eq byte-optimize 'source) "with source-level optimization only") |
| 1422 | ((eq byte-optimize 'byte) "with byte-level optimization only") | 1426 | ((eq byte-optimize 'byte) "with byte-level optimization only") |