Mercurial > emacs
comparison lisp/tar-mode.el @ 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 | cf324803e6ca |
| children | 3561e61ffccc |
comparison
equal
deleted
inserted
replaced
| 38052:9408156a3159 | 38053:3e512ad7ce98 |
|---|---|
| 677 (start (+ (tar-desc-data-start descriptor) tar-header-offset -1)) | 677 (start (+ (tar-desc-data-start descriptor) tar-header-offset -1)) |
| 678 (end (+ start size))) | 678 (end (+ start size))) |
| 679 (let* ((tar-buffer (current-buffer)) | 679 (let* ((tar-buffer (current-buffer)) |
| 680 (tar-buffer-multibyte enable-multibyte-characters) | 680 (tar-buffer-multibyte enable-multibyte-characters) |
| 681 (tarname (buffer-name)) | 681 (tarname (buffer-name)) |
| 682 (bufname (concat (file-name-nondirectory name) | 682 (bufname (generate-new-buffer-name |
| 683 " (" | 683 (concat (file-name-nondirectory name) |
| 684 tarname | 684 " (" |
| 685 ")")) | 685 tarname |
| 686 ")"))) | |
| 686 (read-only-p (or buffer-read-only view-p)) | 687 (read-only-p (or buffer-read-only view-p)) |
| 687 (buffer (get-buffer bufname)) | 688 (buffer (get-buffer bufname)) |
| 688 (just-created nil) | 689 (just-created nil) |
| 689 (new-buffer-file-name (expand-file-name | 690 (new-buffer-file-name (expand-file-name |
| 690 ;; `:' is not allowed on Windows | 691 ;; `:' is not allowed on Windows |