Mercurial > emacs

comparison lisp/emacs-lisp/bytecomp.el @ 83094:8e5779acd195

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS HEAD Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-193 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-194 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-195 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-196 Remove RCS keywords * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-197 Stupid CVS keyword changes * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-198 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-199 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-134
author Karoly Lorentey <lorentey@elte.hu>
date Sat, 10 Apr 2004 23:06:09 +0000
parents 108bb5537c12 e8824c4f5f7e
children eb7e8d483840
comparison
equal deleted inserted replaced
83093:fd7beda03521 83094:8e5779acd195
5 5
6 ;; Author: Jamie Zawinski <jwz@lucid.com> 6 ;; Author: Jamie Zawinski <jwz@lucid.com>
7 ;; Hallvard Furuseth <hbf@ulrik.uio.no> 7 ;; Hallvard Furuseth <hbf@ulrik.uio.no>
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
9 ;; Keywords: lisp 9 ;; Keywords: lisp
10
11 ;;; This version incorporates changes up to version 2.10 of the
12 ;;; Zawinski-Furuseth compiler.
13 (defconst byte-compile-version "$Revision: 2.144 $")
14 10
15 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
16 12
17 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
18 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
1858 (or (and (boundp 'user-mail-address) user-mail-address) 1854 (or (and (boundp 'user-mail-address) user-mail-address)
1859 (concat (user-login-name) "@" (system-name))) 1855 (concat (user-login-name) "@" (system-name)))
1860 " on " 1856 " on "
1861 (current-time-string) "\n;;; from file " filename "\n") 1857 (current-time-string) "\n;;; from file " filename "\n")
1862 (insert ";;; in Emacs version " emacs-version "\n") 1858 (insert ";;; in Emacs version " emacs-version "\n")
1863 (insert ";;; with bytecomp version " 1859 (insert ";;; "
1864 (progn (string-match "[0-9.]+" byte-compile-version)
1865 (match-string 0 byte-compile-version))
1866 "\n;;; "
1867 (cond 1860 (cond
1868 ((eq byte-optimize 'source) "with source-level optimization only") 1861 ((eq byte-optimize 'source) "with source-level optimization only")
1869 ((eq byte-optimize 'byte) "with byte-level optimization only") 1862 ((eq byte-optimize 'byte) "with byte-level optimization only")
1870 (byte-optimize "with all optimizations") 1863 (byte-optimize "with all optimizations")
1871 (t "without optimization")) 1864 (t "without optimization"))