mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

* lisp/dired-x.el (dired-jump): Support archive-subfile-mode

Browse Source 
exactly like tar-subfile-mode is already supported.
This commit is contained in:
Juri Linkov 2018-09-13 00:50:22 +03:00
parent 78ff92597e
commit a1b8418f5e
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/dired-x.el
View File

@ -445,6 +445,7 @@ See variables `dired-texinfo-unclean-extensions',
dired-tex-unclean-extensions
(list ".dvi"))))
(defvar archive-superior-buffer)
(defvar tar-superior-buffer)
;;; JUMP.
@ -461,8 +462,12 @@ Interactively with prefix argument, read FILE-NAME."
(interactive
(list nil (and current-prefix-arg
(read-file-name "Jump to Dired file: "))))
(if (bound-and-true-p tar-subfile-mode)
(switch-to-buffer tar-superior-buffer)
(cond
((bound-and-true-p archive-subfile-mode)
(switch-to-buffer archive-superior-buffer))
((bound-and-true-p tar-subfile-mode)
(switch-to-buffer tar-superior-buffer))
(t
;; Expand file-name before `dired-goto-file' call:
;; `dired-goto-file' requires its argument to be an absolute
;; file name; the result of `read-file-name' could be
@ -490,7 +495,7 @@ Interactively with prefix argument, read FILE-NAME."
;; Toggle omitting, if it is on, and try again.
(when dired-omit-mode
(dired-omit-mode)
(dired-goto-file file))))))))
(dired-goto-file file)))))))))
;;;###autoload
(defun dired-jump-other-window (&optional file-name)