(tar-extract): Use `!' instead of `:' to construct

buffer-file-name (`:' is invalid in file names on Windows).

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index dce8bee..c2d2033 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -739,7 +739,8 @@ appear on disk when you save the tar-file's buffer."
                (insert-buffer-substring tar-buffer start end)
                (goto-char 0)
                (setq buffer-file-name
-                     (expand-file-name (concat tarname ":" name)))
+                     ;; `:' is not allowed on Windows
+                     (expand-file-name (concat tarname "!" name)))
                (setq buffer-file-truename
                      (abbreviate-file-name buffer-file-name))
                ;; Set the default-directory to the dir of the