Mercurial > emacs

changeset 17002:07144e5d208a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-file): Write a compiled file without any code conversion.
author Karl Heuer <kwzh@gnu.org>
date Thu, 20 Feb 1997 05:40:01 +0000
parents ce8565274e49
children 4ec627bf114e
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el	Thu Feb 20 05:39:18 1997 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Thu Feb 20 05:40:01 1997 +0000
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the 
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.24 $")
+(defconst byte-compile-version "$Revision: 2.25 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1268,7 +1268,8 @@
 	(insert "\n")			; aaah, unix.
 	(let ((vms-stmlf-recfm t))
 	  (if (file-writable-p target-file)
-	      (let ((kanji-flag nil))	; for nemacs, from Nakagawa Takayuki
+	      ;; We must disable any code conversion here.
+	      (let ((coding-system-for-read 'no-conversion))
 		(if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
 		    (setq buffer-file-type t))
 		(write-region 1 (point-max) target-file))