elisp カレントバッファ以外の全てのバッファを閉じる

kill-other-buffers.el

(defun kill-other-buffers ()
  "Kill all other buffers."
  (interactive)
  (let ((exclude '("*scratch*" "*Messages*")))
    (mapc (lambda (b) 
            (let ((buf (buffer-name b)))
              (unless (member buf exclude)
                (kill-buffer buf))))
          (delq (current-buffer) (buffer-list)))))