关闭Emacs中的所有缓冲区但保留neotree open

Question

我使用的Emacs Neotree插件为Emacs提供了文件浏览器边栏，我有这个功能来关闭所有缓冲区但当前的缓冲区：

(defun kill-other-buffers ()
  "Close all other buffers."
  (interactive)
  (mapc 'kill-buffer (delq (current-buffer) (buffer-list))))

它工作正常，但它关闭了neotree导航，我希望它保持打开状态。关于如何完成这项工作的任何想法？

Answer 1

由于neo-buffer-name在neotreel.el中定义为*NeoTree*，因此以下更改应该可以解决问题：

(mapc 'kill-buffer (delq neo-buffer-name (delq (current-buffer) (buffer-list))))