Mercurial > emacs
changeset 24601:c22ae7f6afd9
(jka-compr-insert-file-contents):
Use auto-coding-alist-lookup to check for files that
should not have eol conversion, in the unibyte case.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 08 Apr 1999 22:26:13 +0000 |
| parents | 5e026e6efc73 |
| children | ca3a341bfd58 |
| files | lisp/jka-compr.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jka-compr.el Thu Apr 08 19:08:22 1999 +0000 +++ b/lisp/jka-compr.el Thu Apr 08 22:26:13 1999 +0000 @@ -522,7 +522,11 @@ ;; If multibyte characters are disabled, ;; don't do that conversion. (and (null enable-multibyte-characters) - 'raw-text-unix) + (or (auto-coding-alist-lookup + (save-match-data + (string-match (jka-compr-info-regexp info) filename) + (substring filename 0 (match-beginning 0)))) + 'raw-text)) (let ((coding (find-operation-coding-system 'insert-file-contents (jka-compr-byte-compiler-base-file-name file))))