(byte-compile-file): Treat windows-nt like ms-dos.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 7af9455848e9f36b577ac16837b263593d8879ef..8ef3d268bfe43e27894f9ba1c368bfe0b6064797 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1181,7 +1181,7 @@ 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)
+               (if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
                    (setq buffer-file-type t))
                (write-region 1 (point-max) target-file))
            ;; This is just to give a better error message than