diff options
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 2 insertions, 0 deletions
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." | |||
| 1177 | ;;; (error nil))) | 1177 | ;;; (error nil))) |
| 1178 | (if (file-writable-p target-file) | 1178 | (if (file-writable-p target-file) |
| 1179 | (let ((kanji-flag nil)) ; for nemacs, from Nakagawa Takayuki | 1179 | (let ((kanji-flag nil)) ; for nemacs, from Nakagawa Takayuki |
| 1180 | (if (eq system-type 'ms-dos) | ||
| 1181 | (setq buffer-file-type t)) | ||
| 1180 | (write-region 1 (point-max) target-file)) | 1182 | (write-region 1 (point-max) target-file)) |
| 1181 | ;; This is just to give a better error message than | 1183 | ;; This is just to give a better error message than |
| 1182 | ;; write-region | 1184 | ;; write-region |