(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.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 87e1a656812764385f7b118ea0e0d6a372e25609..00fff38487b2f35ad9679cc20534fbb30717c8e0 100644 (file)
--- 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)