From 70210075fa1d536be6b2588d97cad3b8dc993fad Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Thu, 26 Jan 2012 14:44:02 +0200 Subject: [PATCH] added a helper function prelude-kill-other-buffers, that kills all buffers, but the current one --- modules/prelude-core.el | 7 +++++++ modules/prelude-global-keybindings.el | 3 +++ 2 files changed, 10 insertions(+) diff --git a/modules/prelude-core.el b/modules/prelude-core.el index 8398cd2..bad5e9a 100644 --- a/modules/prelude-core.el +++ b/modules/prelude-core.el @@ -351,5 +351,12 @@ there's a region, all lines that region covers will be duplicated." (set-window-start w2 s1))) (other-window 1)) +(defun prelude-kill-other-buffers () + "Kill all buffers but the current one" + (interactive) + (dolist (buffer (buffer-list)) + (unless (eql buffer (current-buffer)) + (kill-buffer buffer)))) + (provide 'prelude-core) ;;; prelude-core.el ends here diff --git a/modules/prelude-global-keybindings.el b/modules/prelude-global-keybindings.el index 824052c..d1f84af 100644 --- a/modules/prelude-global-keybindings.el +++ b/modules/prelude-global-keybindings.el @@ -115,6 +115,9 @@ ;; open an ansi-term buffer (global-set-key (kbd "C-x t") 'prelude-visit-term-buffer) +;; kill other buffers +(global-set-key (kbd "C-c k o") 'prelude-kill-other-buffers) + ;; search with google (global-set-key (kbd "C-c g") 'prelude-google)