From c09655bc3cb490cda5eef6414974c36e311136e1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Apr 1994 08:32:32 +0000 Subject: [PATCH] (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. --- lisp/tar-mode.el | 19 +++++++++++++------ 1 file 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) -- 2.39.5