(tar-extract): Sync with HEAD.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 60b2155adc37a7cded70e9ad4aaccc0cf9c4abe0..024d7399ea917b77461e2d177ba44d628bc1eaca 100644 (file)
--- 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)))