(jka-compr-insert-file-contents): Fix previous

change to use jka-compr-byte-compiler-base-file-name.
This commit is contained in:
Dave Love 1999-04-12 08:50:02 +00:00
parent 98237e7c44
commit f8d8f6270e

View file

@ -523,9 +523,7 @@ There should be no more than seven characters after the final `/'."
;; don't do that conversion.
(and (null enable-multibyte-characters)
(or (auto-coding-alist-lookup
(save-match-data
(string-match (jka-compr-info-regexp info) filename)
(substring filename 0 (match-beginning 0))))
(jka-compr-byte-compiler-base-file-name file))
'raw-text))
(let ((coding (find-operation-coding-system
'insert-file-contents