summaryrefslogtreecommitdiff
path: root/lisp/tar-mode.el
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2006-05-26 04:47:25 +0000
committerKenichi Handa <handa@m17n.org>2006-05-26 04:47:25 +0000
commitb87f5fcce9c1ad51f188b5c2fe17be5979b5010e (patch)
tree036c0773d7b49a14b0ea791226ef72bb8e85eb87 /lisp/tar-mode.el
parenteb286ca8bb2a7dc617ad24573bf1c7a31e56e39b (diff)
downloademacs-b87f5fcce9c1ad51f188b5c2fe17be5979b5010e.tar.gz
(tar-extract): Call find-operation-coding-system
with (FILENAME . BUFFER).
Diffstat (limited to 'lisp/tar-mode.el')
-rw-r--r--lisp/tar-mode.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index f24a91d4145..a02fd1b2ba9 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -736,7 +736,8 @@ appear on disk when you save the tar-file's buffer."
(funcall set-auto-coding-function
name (- (point-max) (point)))))
(car (find-operation-coding-system
- 'insert-file-contents name t))))
+ 'insert-file-contents
+ (cons name (current-buffer)) t))))
(multibyte enable-multibyte-characters)
(detected (detect-coding-region
(point-min)