Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 22050:0faa739eebda
(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 |