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

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 9a80fa18315..cfb4251c725 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -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