Mercurial > emacs
comparison lisp/international/mule.el @ 22903:77e68af369b1
(find-new-buffer-file-coding-system): When
inhibit-eol-conversion is non-nil and the buffer didn't already
set a fully-qualified coding system, force -unix eol-type.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 04 Aug 1998 10:27:45 +0000 |
| parents | e7a1b839f16c |
| children | d2ceee5cd572 |
comparison
equal
deleted
inserted
replaced
| 22902:18839ab53285 | 22903:77e68af369b1 |
|---|---|
| 960 ;; had better not change it. | 960 ;; had better not change it. |
| 961 nil | 961 nil |
| 962 | 962 |
| 963 (setq found-eol (coding-system-eol-type coding)) | 963 (setq found-eol (coding-system-eol-type coding)) |
| 964 (if (null (numberp found-eol)) | 964 (if (null (numberp found-eol)) |
| 965 ;; But eol-type is not found. | 965 ;; But eol-type is not found. |
| 966 (setq found-eol nil)) | 966 ;; If EOL conversions are inhibited, force unix eol-type. |
| 967 (setq found-eol (if inhibit-eol-conversion 0))) | |
| 967 (if (eq (coding-system-type coding) t) | 968 (if (eq (coding-system-type coding) t) |
| 968 (setq found-coding 'undecided) | 969 (setq found-coding 'undecided) |
| 969 (setq found-coding (coding-system-base coding))) | 970 (setq found-coding (coding-system-base coding))) |
| 970 | 971 |
| 971 (if (and (not found-eol) (eq found-coding 'undecided)) | 972 (if (and (not found-eol) (eq found-coding 'undecided)) |