Emacs - закрыть все буферы одной командой

Спасибо кое-кому за решение:

(defun close-all-buffers ()
(interactive)
(mapc 'kill-buffer (buffer-list)))


Вуаля!