Mercurial > emacs
comparison lisp/tar-mode.el @ 25575:d8c646ec07fa
(tar-extract): Don't assume buffer is visiting a file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 06 Sep 1999 22:03:38 +0000 |
| parents | 2033936f1aa7 |
| children | a066c27ca69e |
comparison
equal
deleted
inserted
replaced
| 25574:e99b1ef55f92 | 25575:d8c646ec07fa |
|---|---|
| 751 (size (tar-header-size tokens)) | 751 (size (tar-header-size tokens)) |
| 752 (start (+ (tar-desc-data-start descriptor) tar-header-offset -1)) | 752 (start (+ (tar-desc-data-start descriptor) tar-header-offset -1)) |
| 753 (end (+ start size))) | 753 (end (+ start size))) |
| 754 (let* ((tar-buffer (current-buffer)) | 754 (let* ((tar-buffer (current-buffer)) |
| 755 (tar-buffer-multibyte enable-multibyte-characters) | 755 (tar-buffer-multibyte enable-multibyte-characters) |
| 756 (tarname (file-name-nondirectory (buffer-file-name))) | 756 (tarname (if (buffer-file-name) |
| 757 (file-name-nondirectory (buffer-file-name)) | |
| 758 (buffer-name))) | |
| 757 (bufname (concat (file-name-nondirectory name) | 759 (bufname (concat (file-name-nondirectory name) |
| 758 " (" | 760 " (" |
| 759 tarname | 761 tarname |
| 760 ")")) | 762 ")")) |
| 761 (read-only-p (or buffer-read-only view-p)) | 763 (read-only-p (or buffer-read-only view-p)) |