From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 6 Jan 1994 04:31:20 +0000 (+0000)
Subject: [ms-dos] (byte-compile-file): Save as binary.
X-Git-Tag: emacs-19.34~10397
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3c72369dfc8166ac2d09d7a4f972048cde7c67a;p=emacs.git

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

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