From: Dave Love <fx@gnu.org>
Date: Mon, 12 Apr 1999 08:50:02 +0000 (+0000)
Subject: (jka-compr-insert-file-contents): Fix previous
X-Git-Tag: emacs-20.4~335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8d8f6270e8ad459e8766389c6133b3d0f224a9b;p=emacs.git

(jka-compr-insert-file-contents): Fix previous
change to use jka-compr-byte-compiler-base-file-name.
---

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