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

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index e45b36b..7e95ef3 100644 (file)
--- 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