From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 29 Apr 1998 22:15:59 +0000 (+0000)
Subject: (tar-extract): Use `!' instead of `:' to construct
X-Git-Tag: emacs-20.3~1227
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9516059404050d7ba391c5415d2684327ee55276;p=emacs.git

(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 dce8bee126c..c2d2033a641 100644
--- 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