From c352d9595152bb5682690a101ea294b7c5d4a8b4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 8 Apr 1999 22:26:13 +0000 Subject: [PATCH] (jka-compr-insert-file-contents): Use auto-coding-alist-lookup to check for files that should not have eol conversion, in the unibyte case. --- lisp/jka-compr.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 02530bb441e..c01e4f4d4d5 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -522,7 +522,11 @@ There should be no more than seven characters after the final `/'." ;; 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)))) -- 2.39.2