diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-01 05:52:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-01 05:52:42 +0000 |
| commit | 2cd0169dc8e5d7777b455050a1088a75696f6118 (patch) | |
| tree | 23787c1a284cd2b2fa27ce2d37b39c4ea659e4bb /lisp/emacs-lisp | |
| parent | 23fa904007f1b08f917ff9629366fc4c8b4bbf6b (diff) | |
| download | emacs-2cd0169dc8e5d7777b455050a1088a75696f6118.tar.gz emacs-2cd0169dc8e5d7777b455050a1088a75696f6118.tar.bz2 emacs-2cd0169dc8e5d7777b455050a1088a75696f6118.zip | |
(byte-compile-file): Treat windows-nt like ms-dos.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 7af9455848e..8ef3d268bfe 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 |