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

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

(tar-extract): Use `!' instead of `:' to construct
buffer-file-name (`:' is invalid in file names on Windows).
95160594 · Richard M. Stallman · 2ba993db · 95160594
Commit 95160594 authored Apr 29, 1998 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/tar-mode.el lisp/tar-mode.el +2 -1

No files found.
--- 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