From 70210075fa1d536be6b2588d97cad3b8dc993fad Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@empowerunited.com>
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)