[解決済み] Emacsの現在のバッファ以外のすべてのバッファを閉じる

質問

Emacsで現在のバッファ以外を閉じるにはどうしたらいいですか？最近のウェブブラウザの "他のタブを閉じる" 機能のようなものでしょうか。

どのように解決するのですか?

から EmacsWiki: バッファの削除 :

(defun kill-other-buffers ()
    "Kill all other buffers."
    (interactive)
    (mapc 'kill-buffer 
          (delq (current-buffer) 
                (remove-if-not 'buffer-file-name (buffer-list)))))

編集 : Gilles からのフィードバックで更新されました。