Mercurial > emacs
changeset 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 | 691f7961e32c |
| children | cbc904743f16 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Thu Jan 06 04:30:52 1994 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Thu Jan 06 04:31:20 1994 +0000 @@ -1177,6 +1177,8 @@ ;;; (error nil))) (if (file-writable-p target-file) (let ((kanji-flag nil)) ; for nemacs, from Nakagawa Takayuki + (if (eq system-type 'ms-dos) + (setq buffer-file-type t)) (write-region 1 (point-max) target-file)) ;; This is just to give a better error message than ;; write-region