diff options
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 |