diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-23 21:24:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-23 21:24:29 +0000 |
| commit | 746dd298217b2400c6b82c91261db7dec5fd6d65 (patch) | |
| tree | 765a3fd74f7c8ff785dc0507d75027b533e4d3a6 /lisp/emacs-lisp | |
| parent | bed23cb24b269a01a437ca83e26bc0830ff5cfa5 (diff) | |
| download | emacs-746dd298217b2400c6b82c91261db7dec5fd6d65.tar.gz emacs-746dd298217b2400c6b82c91261db7dec5fd6d65.tar.bz2 emacs-746dd298217b2400c6b82c91261db7dec5fd6d65.zip | |
(byte-compile-file): Always read the file in multibyte mode
unless the file itself specifies unibyte mode.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index d4225ff616e..2aa79037978 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -9,7 +9,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.39 $") +(defconst byte-compile-version "$Revision: 2.40 $") ;; This file is part of GNU Emacs. @@ -1282,6 +1282,9 @@ The value is t if there were no errors, nil if errors." (setq input-buffer (get-buffer-create " *Compiler Input*")) (set-buffer input-buffer) (erase-buffer) + ;; Always compile an Emacs Lisp file as multibyte + ;; unless the file itself forces unibyte with -*-coding: raw-text;-*-x + (set-buffer-multibyte t) (insert-file-contents filename) ;; Run hooks including the uncompression hook. ;; If they change the file name, then change it for the output also. |