(tar-extract): Sync with HEAD.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 60b2155adc3..024d7399ea9 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -726,7 +726,10 @@ appear on disk when you save the tar-file's buffer."
               (setq coding (or coding-system-for-read
                                (and set-auto-coding-function
                                     (funcall set-auto-coding-function
-                                             name (- end start)))))
+                                             name (- end start)))
+                               (car (find-operation-coding-system
+                                     'insert-file-contents
+                                     (cons name (current-buffer)) t))))
               (if (or (not coding)
                       (eq (coding-system-type coding) 'undecided))
                   (setq coding (detect-coding-region start end t)))