aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <[email protected]>1994-11-01 05:52:42 +0000
committerRichard M. Stallman <[email protected]>1994-11-01 05:52:42 +0000
commit2cd0169dc8e5d7777b455050a1088a75696f6118 (patch)
tree23787c1a284cd2b2fa27ce2d37b39c4ea659e4bb /lisp/emacs-lisp
parent23fa904007f1b08f917ff9629366fc4c8b4bbf6b (diff)
(byte-compile-file): Treat windows-nt like ms-dos.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/bytecomp.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 7af9455848..8ef3d268bf 100644
--- 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