# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893888159 0
# Node ID 96fc2ea4248557c1589fe6bf863d19318f114bea
# Parent  96fd475a324d962b19fc813106d1bc1b31ea9875
(tar-extract): Use `!' instead of `:' to construct
buffer-file-name (`:' is invalid in file names on Windows).

diff -r 96fd475a324d -r 96fc2ea42485 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Wed Apr 29 21:47:23 1998 +0000
+++ b/lisp/tar-mode.el	Wed Apr 29 22:15:59 1998 +0000
@@ -739,7 +739,8 @@
 		(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