获取Emacs中的缓冲区数量

Question

如何在Emacs中获取当前缓冲区数量(不包括内部缓冲区)？

我有这个,但看起来很复杂

;; number of buffers excluding internal buffers                                 
(apply '+ (mapcar
           (lambda (b)
             (if (or (buffer-file-name b)
                     (not (string-equal (substring (buffer-name b) 0 1) " ")))
                 1 0))
           (buffer-list)))

它的作用是计算访问文件或名称不以空格开头的缓冲区.

我只想在帧标题中添加缓冲区数量.

Answer 1

我不知道这样做的单一功能,但这是你的代码,简化:

(cl-count-if
 (lambda (b)
   (or (buffer-file-name b)
       (not (string-match "^ " (buffer-name b)))))
 (buffer-list))