回答:
私が質問を理解したなら、あなたが望むことをする関数があります:
(defun maybe-delete-frame-buffer (frame)
"When a dedicated FRAME is deleted, also kill its buffer.
A dedicated frame contains a single window whose buffer is not
displayed anywhere else."
(let ((windows (window-list frame)))
(when (eq 1 (length windows))
(let ((buffer (window-buffer (car windows))))
(when (eq 1 (length (get-buffer-window-list buffer nil t)))
(kill-buffer buffer))))))
フレームを閉じるたびに呼び出されるフックとして追加できます:
(add-to-list 'delete-frame-functions #'maybe-delete-frame-buffer)
以下は、最初の要件を満たす関数です(テスト済みですが、広範囲ではありません):フレームを閉じると、バッファーが別のフレームに表示されていない限り、現在のバッファーを強制終了します。
(defun kill-buffer-when-frame-delete-dwim (frame)
"Kill current buffer unless it's visible in another frame
besides current FRAME."
(unless (delq nil (mapcar #'(lambda (x)
(memq (current-buffer)
(mapcar #'window-buffer x)))
(mapcar #'window-list
(delq frame (frame-list)))))
(kill-buffer (current-buffer))))
(add-hook 'delete-frame-functions 'kill-buffer-when-frame-delete-dwim)
2番目の要件については不明です。