(tar-extract): Don't put whole file name in buffer name.

Do put it in list-buffers-directory.
Save mode line space when mentioning the tar file name.
(tar-subfile-mode): Don't add anything to minor-mode-alist.

1 files changed, 13 insertions, 6 deletions

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 87e1a656812..00fff38487b 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -562,10 +562,10 @@ save your changes to disk."
   (interactive "P")
   (or (and (boundp 'tar-superior-buffer) tar-superior-buffer)
       (error "This buffer is not an element of a tar file"))
-  (or (assq 'tar-subfile-mode minor-mode-alist)
-      (setq minor-mode-alist (append minor-mode-alist
-                                     (list '(tar-subfile-mode
-                                             " TarFile")))))
+;;; Don't do this, because it is redundant and wastes mode line space.
+;;;  (or (assq 'tar-subfile-mode minor-mode-alist)
+;;;      (setq minor-mode-alist (append minor-mode-alist
+;;;                                  (list '(tar-subfile-mode " TarFile")))))
   (make-local-variable 'tar-subfile-mode)
   (setq tar-subfile-mode
         (if (null p)
@@ -650,9 +650,10 @@ save your changes to disk."
          (start (+ (tar-desc-data-start descriptor) tar-header-offset -1))
          (end (+ start size)))
     (let* ((tar-buffer (current-buffer))
+           (tarname (file-name-nondirectory (buffer-file-name)))
            (bufname (concat (file-name-nondirectory name)
-                            " (" name " in "
-                            (file-name-nondirectory (buffer-file-name))
+                            " ("
+                            tarname
                             ")"))
            (read-only-p (or buffer-read-only view-p))
            (buffer (get-buffer bufname))
@@ -677,6 +678,12 @@ save your changes to disk."
                 (make-local-variable 'tar-superior-descriptor)
                 (setq tar-superior-buffer tar-buffer)
                 (setq tar-superior-descriptor descriptor)
+
+                ;; Since the "real" file name is not in buffer-file-name,
+                ;; put it here for list-buffers.
+                (make-local-variable 'list-buffers-directory)
+                (setq list-buffers-directory name)
+
                 (tar-subfile-mode 1)
                 
                 (setq buffer-read-only read-only-p)