From b87f5fcce9c1ad51f188b5c2fe17be5979b5010e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 26 May 2006 04:47:25 +0000 Subject: [PATCH] (tar-extract): Call find-operation-coding-system with (FILENAME . BUFFER). --- lisp/tar-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.5