Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 5454:751ea2cff517
[ms-dos] (byte-compile-file): Save as binary.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 06 Jan 1994 04:31:20 +0000 |
| parents | 164b8c470e47 |
| children | 2b3d2ea74ce1 |
comparison
equal
deleted
inserted
replaced
| 5453:691f7961e32c | 5454:751ea2cff517 |
|---|---|
| 1175 ;;; (condition-case () | 1175 ;;; (condition-case () |
| 1176 ;;; (delete-file target-file) | 1176 ;;; (delete-file target-file) |
| 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 |
| 1183 (signal 'file-error | 1185 (signal 'file-error |
| 1184 (list "Opening output file" | 1186 (list "Opening output file" |