procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(find-buffer-file-type-coding-system):

Browse source 
Use emacs-mule-dos for text file names; use undecided-dos
for the last resort (instead of emacs-mule-dos).
This commit is contained in:
Richard M. Stallman 1997-07-19 03:27:19 +00:00
parent 0c8ee1a2e6
commit dfbcdf5f5b
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/dos-w32.el
View file

@ -102,27 +102,28 @@ upon the filename, the contents of 'untranslated-filesystem-list' and
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)