diff options
author | Juri Linkov <juri@linkov.net> | 2018-09-13 00:50:22 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2018-09-13 00:50:22 +0300 |
commit | a1b8418f5e1a4de54528f2887cf653105c3c92fb (patch) | |
tree | e7d8b6da1b935c3208de7eb32a9dcb7a14277872 /lisp/dired-x.el | |
parent | 78ff92597ef6e9493a4f06cd9bb5eb4fd1faff5f (diff) | |
download | emacs-a1b8418f5e1a4de54528f2887cf653105c3c92fb.tar.gz |
* lisp/dired-x.el (dired-jump): Support archive-subfile-mode
exactly like tar-subfile-mode is already supported.
Diffstat (limited to 'lisp/dired-x.el')
-rw-r--r-- | lisp/dired-x.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index f07a5deb4f1..6c19863f7b6 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -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) |