From f8d8f6270e8ad459e8766389c6133b3d0f224a9b Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 12 Apr 1999 08:50:02 +0000 Subject: [PATCH] (jka-compr-insert-file-contents): Fix previous change to use jka-compr-byte-compiler-base-file-name. --- lisp/jka-compr.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index c01e4f4d4d5..b2b53335fc4 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -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 -- 2.39.2