(tar-extract): Don't assume buffer is visiting a file.

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