Закрыть все буферы, что не открыты ни в одном «окне»

(defun kill-windowless-buffers ()
  (interactive)
  (let ((num-buffers 0))
   (dolist (buffer (buffer-list))
     (unless (get-buffer-window buffer)
       (kill-buffer buffer)
       (incf num-buffers)))
   (message "Killed %d buffer(s)" num-buffers)))