diff options
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 1ffd3cae2ca..2a9694b8065 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -10,7 +10,7 @@ | |||
| 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.24 $") | 13 | (defconst byte-compile-version "$Revision: 2.25 $") |
| 14 | 14 | ||
| 15 | ;; This file is part of GNU Emacs. | 15 | ;; This file is part of GNU Emacs. |
| 16 | 16 | ||
| @@ -1268,7 +1268,8 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling." | |||
| 1268 | (insert "\n") ; aaah, unix. | 1268 | (insert "\n") ; aaah, unix. |
| 1269 | (let ((vms-stmlf-recfm t)) | 1269 | (let ((vms-stmlf-recfm t)) |
| 1270 | (if (file-writable-p target-file) | 1270 | (if (file-writable-p target-file) |
| 1271 | (let ((kanji-flag nil)) ; for nemacs, from Nakagawa Takayuki | 1271 | ;; We must disable any code conversion here. |
| 1272 | (let ((coding-system-for-read 'no-conversion)) | ||
| 1272 | (if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt)) | 1273 | (if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt)) |
| 1273 | (setq buffer-file-type t)) | 1274 | (setq buffer-file-type t)) |
| 1274 | (write-region 1 (point-max) target-file)) | 1275 | (write-region 1 (point-max) target-file)) |