Mercurial > emacs

comparison lisp/emacs-lisp/bytecomp.el @ 22050:0faa739eebda

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-insert-header): Fix prev chg.
author Richard M. Stallman <rms@gnu.org>
date Wed, 13 May 1998 04:48:48 +0000
parents 678a1ed22116
children bc8c7f59c064
comparison
equal deleted inserted replaced
22049:247682b1da6b 22050:0faa739eebda
7 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Keywords: lisp 8 ;; Keywords: lisp
9 9
10 ;;; This version incorporates changes up to version 2.10 of the 10 ;;; This version incorporates changes up to version 2.10 of the
11 ;;; Zawinski-Furuseth compiler. 11 ;;; Zawinski-Furuseth compiler.
12 (defconst byte-compile-version "$Revision: 2.42 $") 12 (defconst byte-compile-version "$Revision: 2.43 $")
13 13
14 ;; This file is part of GNU Emacs. 14 ;; This file is part of GNU Emacs.
15 15
16 ;; GNU Emacs is free software; you can redistribute it and/or modify 16 ;; GNU Emacs is free software; you can redistribute it and/or modify
17 ;; it under the terms of the GNU General Public License as published by 17 ;; it under the terms of the GNU General Public License as published by
1448 (some-multibyte-characters 1448 (some-multibyte-characters
1449 (save-excursion 1449 (save-excursion
1450 (goto-char 1) 1450 (goto-char 1)
1451 ;; See if the buffer has any multibyte characters. 1451 ;; See if the buffer has any multibyte characters.
1452 (skip-chars-forward "\0-\377") 1452 (skip-chars-forward "\0-\377")
1453 (setq some-multibyte-characters (not (eobp)))))) 1453 (not (eobp)))))
1454 1454
1455 (set-buffer outbuffer) 1455 (set-buffer outbuffer)
1456 (goto-char 1) 1456 (goto-char 1)
1457 ;; The magic number of .elc files is ";ELC", or 0x3B454C43. After 1457 ;; The magic number of .elc files is ";ELC", or 0x3B454C43. After
1458 ;; that is the file-format version number (18, 19 or 20) as a 1458 ;; that is the file-format version number (18, 19 or 20) as a