フレーム内のすべてのウィンドウを数える方法は？

質問が述べたように、そのフレームに現在表示されているウィンドウをカウントする関数が欲しいのですが。

したがって、この：

+--------------+-------------+
|              |             |
|              |             |
|  *scratch*   | *Messages*  |
|              |             |
|              |             |
|              |             |
+--------------+-------------+
|           *Help*           |
|                            |
+----------------------------+

戻るか => 3

以下の機能を開始しました：

(defun count-windows ()
  "Count how many buffers are currently being shown."
  (interactive)
)

どのバッファが表示されているかに関係なくウィンドウの数を意味する場合、：(length (window-list))はそれを行います。さらに良いことに、既存の(count-windows)関数をそのまま使用できます。

フレームのウィンドウに表示される一意のバッファの数を数えたい場合は、以下を使用できます。

(length (cl-delete-duplicates (mapcar #'window-buffer (window-list))))

（window-list選択したフレーム以外のものが必要な場合は、オプションのFRAME引数を取ることもできます。）

後者を関数呼び出しでラップすると、次のようになります。

(defun count-unique-visible-buffers (&optional frame)
  "Count how many buffers are currently being shown.  Defaults to
selected frame."
  (length (cl-delete-duplicates (mapcar #'window-buffer (window-list frame)))))

（この関数は、が読み込まれていることを前提としています'cl-lib。コメントに従って、を回避したい場合delete-dupsはの代わりに使用できます。）cl-delete-duplicatescl-lib