emacs - 关闭 Emacs 中除当前缓冲区之外的所有缓冲区

Question

如何关闭 Emacs 中除当前缓冲区之外的所有缓冲区？类似于现代网络浏览器中的“关闭其他选项卡”功能？

Answer 1

对于更手动的方法，您可以使用 C-x C-b 列出所有缓冲区，使用 d 标记列表中要删除的缓冲区，然后使用 x 删除它们。

我还建议用更高级的 ibuffer 替换列表缓冲区:(global-set-key (kbd "C-x C-b") 'ibuffer)。上面的代码适用于 ibuffer，但你也可以这样做:

m(标记您要保留的缓冲区)
t(切换标记)
D(杀死所有标记的缓冲区)

我还使用了 Emacs Wiki 中的这段代码，这将进一步简化此手动方法:

;; Ensure ibuffer opens with point at the current buffer's entry.
(defadvice ibuffer
  (around ibuffer-point-to-most-recent) ()
  "Open ibuffer with cursor pointed to most recent buffer name."
  (let ((recent-buffer-name (buffer-name)))
    ad-do-it
    (ibuffer-jump-to-buffer recent-buffer-name)))
(ad-activate 'ibuffer)