# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757830680 0
# Node ID 751ea2cff517bed12e3b2a5a0e7fa5ea81ed28bd
# Parent  691f7961e32c51226fa7913495a9aa68b040df84
[ms-dos] (byte-compile-file): Save as binary.

diff -r 691f7961e32c -r 751ea2cff517 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Thu Jan 06 04:30:52 1994 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Thu Jan 06 04:31:20 1994 +0000
@@ -1177,6 +1177,8 @@
 ;;;		    (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