Mercurial > emacs

comparison lisp/emacs-lisp/bytecomp.el @ 88798:bd4ee6f57fb1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-insert-header): Fix typo.
author Dave Love <fx@gnu.org>
date Thu, 27 Jun 2002 19:19:05 +0000
parents 15101779a9a0
children ee905d480b0a
comparison
equal deleted inserted replaced
88797:ac14949a64e4 88798:bd4ee6f57fb1
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
9 ;; Keywords: lisp 9 ;; Keywords: lisp
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: 2.94 $") 13 (defconst byte-compile-version "$Revision$")
14 14
15 ;; This file is part of GNU Emacs. 15 ;; This file is part of GNU Emacs.
16 16
17 ;; GNU Emacs is free software; you can redistribute it and/or modify 17 ;; 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 18 ;; it under the terms of the GNU General Public License as published by
1613 ;; 0 string ;ELC GNU Emacs Lisp compiled file, 1613 ;; 0 string ;ELC GNU Emacs Lisp compiled file,
1614 ;; >4 byte x version %d 1614 ;; >4 byte x version %d
1615 1615
1616 (insert 1616 (insert
1617 ";ELC" 1617 ";ELC"
1618 (if (byte-compile-version-cond byte-compile-compatibility) 18 21) 1618 (if (byte-compile-version-cond byte-compile-compatibility) 18 22)
1619 "\000\000\000\n" 1619 "\000\000\000\n"
1620 ) 1620 )
1621 (insert ";;; Compiled by " 1621 (insert ";;; Compiled by "
1622 (or (and (boundp 'user-mail-address) user-mail-address) 1622 (or (and (boundp 'user-mail-address) user-mail-address)
1623 (concat (user-login-name) "@" (system-name))) 1623 (concat (user-login-name) "@" (system-name)))