Die folgende Funktion wurde von Benutzername Starkey auf stackoverflow in einer verwandten Frage geschrieben: https://stackoverflow.com/a/3417472/2112489
(defun close-all-buffers () (interactive) (mapc 'kill-buffer (buffer-list)))
BEARBEITEN : Wie von @Drew im nachstehenden Kommentar vorgeschlagen, ist es im Allgemeinen eine gute Idee, interne Puffer mit einem führenden Leerzeichen im Namen zu behalten. Die doc-Zeichenfolge erläutert, wie diese Funktion funktioniert. Die Tastenkombination der F5
Taste ist nur ein Beispiel, um die Funktion in Verbindung mit einem universellen Argument zu testen.
(defun custom-kill-buffer-fn (&optional arg) "When called with a prefix argument -- i.e., C-u -- kill all interesting buffers -- i.e., all buffers without a leading space in the buffer-name. When called without a prefix argument, kill just the current buffer -- i.e., interesting or uninteresting." (interactive "P") (cond ((and (consp arg) (equal arg '(4))) (mapc (lambda (x) (let ((name (buffer-name x))) (unless (eq ?\s (aref name 0)) (kill-buffer x)))) (buffer-list))) (t (kill-buffer (current-buffer))))) (global-set-key [f5] 'custom-kill-buffer-fn)