Закройте все буферы, кроме текущего, в Emacs

Question

Как закрыть все, кроме текущего буфера в Emacs? Аналогично функции «Закрыть другие вкладки» в современных веб-браузерах?

Answer 1

От 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))))) 

Edit: обновлена ​​с обратной связью от Жиля

Answer 2

В emacs нет прямого способа сделать это.

Вы можете написать функцию для этого. Ниже будет закрыть все буферы:

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

Answer 3

Для более ручного подхода, вы можете получить список всех буферов с Cx Cb, отметьте буферы в списке для удаления с помощью d, а затем используйте x, чтобы удалить их.

Я также рекомендую заменять буферы списка более продвинутым ibuffer: (global-set-key (kbd "C-x C-b") 'ibuffer). Выше будет работать с ibuffer, но вы также можете сделать это:

м (маркировать буфер вы хотите сохранить)
т (тумблеры знаки)
D (убить все выделенные буфера)

Я также использую этот фрагмент из Emacs Wiki, что будет способствовать дальнейшему упорядочению этого ручного подхода:

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

Он работает так, как вы ожидали.

И после прочтения @ ответ Старки, я думаю, что это будет лучше:

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

(буфер-лист (текущий-буфер)) возвращает список, содержащий все существующие буферы с текущим буфером во главе списка.

Это мой первый ответ на StackOverflow. Надеюсь, что это помогает :)

Answer 5

Существует встроенный в команде м - хkill-some-buffers (я использую 24.3.50) В моей NeXTstep появились гуй (не пробовал в терминале, но уверен, что это похоже), то вы можете утверждать, какие буферы убивать.

Answer 6

Я нашел это решение самым простым. Это удаляет каждый буфер, кроме текущего.Вы должны добавить этот код в ваш .emacs файл

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

Конечно, вы использовать его с Mxkill-other-buffersRETили вы вставьте следующий код в файле .emacs тоже, а затем просто нажмите CxCb

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