Mercurial > emacs
comparison lisp/jka-compr.el @ 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 | 3472aaf1ed7b |
| children | ea0ab5644dca |
comparison
equal
deleted
inserted
replaced
| 24600:5e026e6efc73 | 24601:c22ae7f6afd9 |
|---|---|
| 520 (coding-system-for-read | 520 (coding-system-for-read |
| 521 (or coding-system-for-read | 521 (or coding-system-for-read |
| 522 ;; If multibyte characters are disabled, | 522 ;; If multibyte characters are disabled, |
| 523 ;; don't do that conversion. | 523 ;; don't do that conversion. |
| 524 (and (null enable-multibyte-characters) | 524 (and (null enable-multibyte-characters) |
| 525 'raw-text-unix) | 525 (or (auto-coding-alist-lookup |
| 526 (save-match-data | |
| 527 (string-match (jka-compr-info-regexp info) filename) | |
| 528 (substring filename 0 (match-beginning 0)))) | |
| 529 'raw-text)) | |
| 526 (let ((coding (find-operation-coding-system | 530 (let ((coding (find-operation-coding-system |
| 527 'insert-file-contents | 531 'insert-file-contents |
| 528 (jka-compr-byte-compiler-base-file-name file)))) | 532 (jka-compr-byte-compiler-base-file-name file)))) |
| 529 (and (consp coding) (car coding))) | 533 (and (consp coding) (car coding))) |
| 530 'undecided)) ) | 534 'undecided)) ) |