diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-09-06 22:03:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-09-06 22:03:38 +0000 |
| commit | 84f72c5bbdf8b1241da9354cafc8e839e53192ea (patch) | |
| tree | d168a3f526e6013c1cf121d6ae7c02fd315fc84a /lisp/tar-mode.el | |
| parent | c54055b1c7cb72731eb9be836544445d7ff1863f (diff) | |
| download | emacs-84f72c5bbdf8b1241da9354cafc8e839e53192ea.tar.gz | |
(tar-extract): Don't assume buffer is visiting a file.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index e45b36bb064..7e95ef3eb4d 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -753,7 +753,9 @@ appear on disk when you save the tar-file's buffer." (end (+ start size))) (let* ((tar-buffer (current-buffer)) (tar-buffer-multibyte enable-multibyte-characters) - (tarname (file-name-nondirectory (buffer-file-name))) + (tarname (if (buffer-file-name) + (file-name-nondirectory (buffer-file-name)) + (buffer-name))) (bufname (concat (file-name-nondirectory name) " (" tarname |