Cerrar todos los buffers además del actual en Emacs

Question

¿Cómo cierro todo excepto el búfer actual en Emacs? ¿Similar a la función "Cerrar otras pestañas" en los navegadores web modernos?

Answer 1

Desde EmacsWiki: Killing Buffers:

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

Edición: actualizado con los comentarios de Gilles

Answer 2

No hay una manera directa en emacs para hacer esto.

Puede escribir una función para hacer esto. A continuación se cerrarán todas las memorias intermedias:

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

Answer 3

Para un enfoque más manual, puede listar todos los tampones con Cx Cb, marque los almacenamientos intermedios en la lista para su eliminación con d, y luego use x para eliminarlos.

También recomiendo reemplazar list-buffers con el ibuffer más avanzado: (global-set-key (kbd "C-x C-b") 'ibuffer). Lo anterior funcionará con ibuffer, pero también se puede hacer esto:

m (marcar el buffer que desea mantener)
t (marcas de palanca)
D (matar a todos los tampones marcados)

también utilizo este fragmento de la Wiki Emacs, lo que racionalizar aún más este enfoque Manual:

;; 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 4

(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))))) 

Funciona como esperaba.

Y después de leer @ respuesta de Starkey, creo que esto será mejor:

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

(buffer-list (current-buffer)) devolverá una lista que contiene todas las memorias intermedias existentes, con el búfer a la cabeza de la lista.

Esta es mi primera respuesta en StackOverflow. Esperamos que ayude :)

Answer 5

hay una construida en el mando m - xkill-some-buffers (estoy usando 24/03/50) En mi GUI nextstep (no tratado en un terminal, pero seguro que es similar) a continuación, puede aprueba qué amortiguadores matar.

Answer 6

Encontré esta solución para ser la más simple. Esto elimina todos los búferes excepto el actual.Usted tiene que añadir este código a su archivo .emacs

(defun kill-other-buffers() 
     "Kill all other buffers." 
     (interactive) 
     (mapc 'kill-buffer (delq (current-buffer) (buffer-list)))) 

Por supuesto, a continuación, utilizarlo con Mxkill-other-buffersRETo pegar el siguiente código en el archivo .emacs demasiado y luego sólo tiene que pulsar Cx Cb

(global-set-key (kbd "C-x C-b") 'kill-other-buffers)