Fermer tous les tampons en dehors de celui en cours dans Emacs

Question

Comment fermer tout sauf le tampon actuel dans Emacs ? Similaire à la fonction "Fermer les autres onglets" des navigateurs web modernes ?

Answer 1

Pour une approche plus manuelle, vous pouvez lister tous les tampons avec C-x C-b marquer les tampons dans la liste pour la suppression avec d et ensuite utiliser x pour les enlever.

Je recommande également de remplacer les list-buffers par le plus avancé ibuffer : (global-set-key (kbd "C-x C-b") 'ibuffer) . Ce qui précède fonctionnera avec ibuffer, mais vous pouvez aussi faire ceci :

m (marquez le tampon que vous souhaitez conserver)
t (marques de basculement)
D (tuer tous les tampons marqués)

J'utilise également cet extrait du Wiki Emacs, qui simplifie encore plus cette approche manuelle :

;; Ensure ibuffer opens with point at the current buffer's entry.
(defadvice ibuffer
  (around ibuffer-point-to-most-recent) ()
  "Open ibuffer with cursor pointed to most recent buffer name."
  (let ((recent-buffer-name (buffer-name)))
    ad-do-it
    (ibuffer-jump-to-buffer recent-buffer-name)))
(ad-activate 'ibuffer)

Answer 2

De EmacsWiki : Tuer les tampons :

(defun kill-other-buffers ()
    "Kill all other buffers."
    (interactive)
    (mapc 'kill-buffer 
          (delq (current-buffer) 
                (remove-if-not 'buffer-file-name (buffer-list)))))

Editar : mise à jour avec les commentaires de Gilles

Answer 3

Il n'y a pas de moyen direct dans emacs pour faire cela.

Vous pourriez écrire une fonction pour faire cela. La fonction suivante fermera tous les tampons :

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

Answer 4

Il existe une commande intégrée m - x kill-some-buffers (J'utilise la 24.3.50) Dans mon interface nextstep (je n'ai pas essayé dans un terminal mais je suis sûr que c'est similaire) vous pouvez alors approuver les tampons à tuer.

Answer 5

 (defun only-current-buffer () 
   (interactive)
   (let ((tobe-killed (cdr (buffer-list (current-buffer)))))
     (while tobe-killed
       (kill-buffer (car tobe-killed))
       (setq tobe-killed (cdr tobe-killed)))))

Cela fonctionne comme vous l'aviez prévu.

Et après avoir lu la réponse de @Starkey, je pense que ceci sera mieux :

(defun only-current-buffer () 
  (interactive)                                                                   
    (mapc 'kill-buffer (cdr (buffer-list (current-buffer)))))

(buffer-list (current-buffer)) retournera une liste qui contient tous les tampons existants, avec le tampon actuel en tête de liste.

C'est ma première réponse sur StackOverflow. J'espère que cela vous aidera :)