我正在为浏览器的“后退”按钮寻找一个包。即以某种方式返回到以前访问过的目录。
我想到的用例是在调用^到父文件夹后更深入地遍历目录树。
用于q
关闭当前窗口,最后访问的窗口将在此处。
我使用a
向下钻取目录,然后重新绑定^
到该目录以备份:
(defun my-dired-up-dir ()
"Go up a directory."
(interactive)
(let ((current-dir (dired-current-directory)))
(find-alternate-file "..")
(dired-goto-file current-dir)))
它上升一个目录并指向您刚刚来自的目录(因此您可以a
根据需要退出)。也许不完全是您想要的,因为它仅在一个级别上有效,但可能仍然有用。