# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 923610373 0
# Node ID c22ae7f6afd9290d49caa1e57a3fbd8974aa9757
# Parent  5e026e6efc73de8a2cd77165b1f6f87b48d9e699
(jka-compr-insert-file-contents):
Use auto-coding-alist-lookup to check for files that
should not have eol conversion, in the unibyte case.

diff -r 5e026e6efc73 -r c22ae7f6afd9 lisp/jka-compr.el
--- 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))))