Mercurial > emacs

diff lisp/jka-compr.el @ 24614:ea0ab5644dca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(jka-compr-insert-file-contents): Fix previous change to use jka-compr-byte-compiler-base-file-name.
author Dave Love <fx@gnu.org>
date Mon, 12 Apr 1999 08:50:02 +0000
parents c22ae7f6afd9
children 0829d4d02982
line wrap: on
line diff
--- a/lisp/jka-compr.el	Mon Apr 12 08:46:09 1999 +0000
+++ b/lisp/jka-compr.el	Mon Apr 12 08:50:02 1999 +0000
@@ -523,9 +523,7 @@
 		   ;; 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