diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-24 08:32:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-24 08:32:32 +0000 |
| commit | c09655bc3cb490cda5eef6414974c36e311136e1 (patch) | |
| tree | 396d144cff1a0e6e9c967e751f1482dd81d67a32 /lisp | |
| parent | b11e15262d4716b08a77c32596f426464f1a3fa7 (diff) | |
| download | emacs-c09655bc3cb490cda5eef6414974c36e311136e1.tar.gz emacs-c09655bc3cb490cda5eef6414974c36e311136e1.tar.bz2 emacs-c09655bc3cb490cda5eef6414974c36e311136e1.zip | |
(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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/tar-mode.el | 19 |
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) |