Mercurial > emacs
changeset 38053:3e512ad7ce98
(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>.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 15 Jun 2001 09:42:36 +0000 |
| parents | 9408156a3159 |
| children | fee34716d07c |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)