emacs - 我如何计算 Emacs 中打开的缓冲区/文件的数量？

Question

有时，我在 Emacs 中本想按 C-x 或 C-c 时不小心按了 C-x C-c。当然，这会在没有确认的情况下关闭所有打开的框架和缓冲区。我知道我可以让 Emacs 提示“你确定要退出吗？”，但我不想一直这样做，那样会很烦人。我只希望它在打开的文件(或缓冲区)超过 N 个时执行此操作。

所以我想按照以下方式将 C-x C-c 绑定(bind)到一个函数:

(if (< number of open buffers n)
    (save-buffers-kill-emacs)
    (are-you-sure))

但我不知道如何获取打开的缓冲区数(或打开的帧数，或打开的文件数等)。

Answer 1

这是我用的:

(defun count-buffers (&optional display-anyway)
  "Display or return the number of buffers."
  (interactive)
  (let ((buf-count (length (buffer-list))))
    (if (or (interactive-p) display-anyway)
    (message "%d buffers in this Emacs" buf-count)) buf-count))

我偷了它，但不记得从哪里偷来的。来自 John Sturdy ，听起来像个迷人的家伙；可从 his website 获得.