開いたバッファを掃除するemacsコマンド

my-kill-other-buffers.el

(require 'cl)
;;;###autoload
(defun my/kill-other-buffers ()
  "Kill all other buffers."
  (interactive)
  (loop for buf in (buffer-list)
        unless (or 
                (get-buffer-window buf)
                (string= (substring (buffer-name buf) 0 1) " ")
                (get-buffer-process buf)
                (member (buffer-name buf) ;; 消さないバッファ名を指定
                        '("*Messages*" "*Compile-Log*" "*Help*"
                          "*scratch*")))
        do (kill-buffer buf)))
(global-set-key (kbd "C-l C-c C-c") 'my/kill-other-buffers)