如何获得Vim'；s:Emacs中的Texplore？

我知道M-x dire，但想定制它。我想按一个键（例如F2）并打开缓冲区。当我在目录层次结构中导航时，它不应该打开新的缓冲区

当我最终打开文件时，它也不应该为它打开新的缓冲区（不是严格必要的，但强烈建议）

当然，这种行为可以是全局性的，也就是说，对于所有可怕的缓冲区/调用。

请检查，这基本上满足了您的需要（除了最后一点，它为新访问的文件重用了dired缓冲区）

警告：我写了它，所以我偏向于它的有用性。

请检查，它几乎满足了您的需要（除了最后一点，它为新访问的文件重用了dired缓冲区）

莱克托：这是我写的，所以我偏向于它的实用性。

一些备选方案，以及一篇格式笨拙的博客文章

警告：我自己还没有试过。

一些替代品-，来自一篇格式笨拙的博客文章

---

警告：我自己还没有试过。

以下是我最后使用的：

(require 'dired)
(global-set-key [(f2)] 'my-dired)
(defun my-dired ()
  (interactive)
  (dired (file-name-directory (buffer-file-name))))
(defadvice dired-advertised-find-file (around dired-subst-directory activate)
  "Replace current buffer if file is a directory."
  (interactive)
  (let ((orig (current-buffer)) (filename (dired-get-filename :no-error-if-not-filep t)))
  ad-do-it
  (when (not (eq (current-buffer) orig)) (kill-buffer orig))))

---

以下是我最后使用的：

(require 'dired)
(global-set-key [(f2)] 'my-dired)
(defun my-dired ()
  (interactive)
  (dired (file-name-directory (buffer-file-name))))
(defadvice dired-advertised-find-file (around dired-subst-directory activate)
  "Replace current buffer if file is a directory."
  (interactive)
  (let ((orig (current-buffer)) (filename (dired-get-filename :no-error-if-not-filep t)))
  ad-do-it
  (when (not (eq (current-buffer) orig)) (kill-buffer orig))))

---

我知道这是非常古老的，但你所要做的就是在目录或文件上按“a”键来获得此功能。它已经在那里了。

我知道这是一个非常古老的功能，但您所要做的就是在目录或文件上按“a”键以获得此功能。它已经存在了。

这里没有偏见，我认为dired-single.el非常棒。我已经用了一段时间了，这正是我第一次查找它时所需要的。（不知道它与：Texplore相比如何，因为我从未真正使用过vim。）这里没有偏见，我认为dired-single.el非常棒。我已经用了一段时间了，这正是我第一次查找它时所需要的。（不知道它与：Texplore相比如何，因为我从未真正使用过vim。）