mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 08:00:48 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
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.
This commit is contained in:
Richard M. Stallman 1994-04-24 08:32:32 +00:00
parent b11e15262d
commit c09655bc3c
1 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/tar-mode.el
View file

@ -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)