diff options
| author | Dave Love <fx@gnu.org> | 1999-04-12 08:50:02 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-04-12 08:50:02 +0000 |
| commit | f8d8f6270e8ad459e8766389c6133b3d0f224a9b (patch) | |
| tree | 9dbc5fac14cfbea2c5145bbda23cbfb14f867794 /lisp/jka-compr.el | |
| parent | 98237e7c449ae3d0b016d0e788cf28ed72bd4d2c (diff) | |
| download | emacs-f8d8f6270e8ad459e8766389c6133b3d0f224a9b.tar.gz | |
(jka-compr-insert-file-contents): Fix previous
change to use jka-compr-byte-compiler-base-file-name.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 4 |
1 files changed, 1 insertions, 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 |