Commit e3c72369 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

[ms-dos] (byte-compile-file): Save as binary.

parent bb157910
......@@ -1177,6 +1177,8 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling."
;;; (error nil)))
(if (file-writable-p target-file)
(let ((kanji-flag nil)) ; for nemacs, from Nakagawa Takayuki
(if (eq system-type 'ms-dos)
(setq buffer-file-type t))
(write-region 1 (point-max) target-file))
;; This is just to give a better error message than
;; write-region
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment