erc以外のバッファに対してkill-bufferする関数
タイトルの通りです。全てを消し去りたいときにどうぞ!!
(defun my-kill-buffers () (interactive) (let ((buffers (loop for bn in (mapcar 'buffer-name (buffer-list)) when (not (or (string-match (rx bol (+ space)) bn) (string-match (rx bol "#") bn))) collect (get-buffer bn)))) (mapcar 'kill-buffer buffers)))