1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00

(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>.
This commit is contained in:
Eli Zaretskii 2001-06-15 09:42:36 +00:00
parent cb54d52206
commit 6da7ea569d

View File

@ -679,10 +679,11 @@ appear on disk when you save the tar-file's buffer."
(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)