# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 992598156 0
# Node ID 3e512ad7ce9808ad7b098f1c1b98c4862deb1bd0
# Parent  9408156a3159b75a19e30444fe078f9672040370
(tar-extract): Call generate-new-buffer-name to
create a buffer for extracted file, in case there's more than one
file by that name in an archive, possibly in different
directories.  From Kevin Rodgers <kevinr@ihs.com>.

diff -r 9408156a3159 -r 3e512ad7ce98 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Fri Jun 15 09:37:19 2001 +0000
+++ b/lisp/tar-mode.el	Fri Jun 15 09:42:36 2001 +0000
@@ -679,10 +679,11 @@
     (let* ((tar-buffer (current-buffer))
 	   (tar-buffer-multibyte enable-multibyte-characters)
 	   (tarname (buffer-name))
-	   (bufname (concat (file-name-nondirectory name)
-			    " ("
-			    tarname
-			    ")"))
+	   (bufname (generate-new-buffer-name
+		     (concat (file-name-nondirectory name)
+			     " ("
+			     tarname
+			     ")")))
 	   (read-only-p (or buffer-read-only view-p))
 	   (buffer (get-buffer bufname))
 	   (just-created nil)