]> git.eshelyaron.com Git - emacs.git/commitdiff
(jka-compr-insert-file-contents):
authorRichard M. Stallman <rms@gnu.org>
Thu, 8 Apr 1999 22:26:13 +0000 (22:26 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 8 Apr 1999 22:26:13 +0000 (22:26 +0000)
Use auto-coding-alist-lookup to check for files that
should not have eol conversion, in the unibyte case.

lisp/jka-compr.el

index 02530bb441e3e98ac1a69b16abe03f654fe65b95..c01e4f4d4d55de9860a0434cf28dba29b63dea91 100644 (file)
@@ -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))))