Mercurial > emacs
changeset 18863:62090ffa4583
(find-buffer-file-type-coding-system):
Use emacs-mule-dos for text file names; use undecided-dos
for the last resort (instead of emacs-mule-dos).
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 19 Jul 1997 03:27:19 +0000 |
| parents | 2498c062473b |
| children | 79ffc83169c7 |
| files | lisp/dos-w32.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dos-w32.el Sat Jul 19 03:26:48 1997 +0000 +++ b/lisp/dos-w32.el Sat Jul 19 03:27:19 1997 +0000 @@ -102,27 +102,28 @@ If the match is nil (for text): 'emacs-mule-dos' Otherwise: If the file exists: 'undecided' - If the file does not exist: 'emacs-mule-dos' + If the file does not exist: 'undecided-dos' If COMMAND is 'write-region', the coding system is chosen based upon the value of 'buffer-file-type': If t, the coding system is 'no-conversion', otherwise it is 'emacs-mule-dos'." (let ((op (nth 0 command)) (target) - (binary) + (binary nil) (text nil) (undecided nil)) (cond ((eq op 'insert-file-contents) (setq target (nth 1 command)) (setq binary (find-buffer-file-type target)) - (if (not binary) - (setq undecided - (and (file-exists-p target) - (not (find-buffer-file-type-match target)))))) + (unless binary + (if (find-buffer-file-type-match target) + (setq text t) + (setq undecided (file-exists-p target))))) ((eq op 'write-region) (setq binary buffer-file-type))) (cond (binary '(no-conversion . no-conversion)) + (text '(emacs-mule-dos . emacs-mule-dos)) (undecided '(undecided . undecided)) - (t '(emacs-mule-dos . emacs-mule-dos))))) + (t '(undecided-dos . undecided-dos))))) (modify-coding-system-alist 'file "" 'find-buffer-file-type-coding-system)