added a helper function prelude-kill-other-buffers, that kills all

buffers, but the current one
This commit is contained in:
Bozhidar Batsov 2012-01-26 14:44:02 +02:00
parent 48a25218ec
commit 70210075fa
2 changed files with 10 additions and 0 deletions

View file

@ -351,5 +351,12 @@ there's a region, all lines that region covers will be duplicated."
(set-window-start w2 s1))) (set-window-start w2 s1)))
(other-window 1)) (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) (provide 'prelude-core)
;;; prelude-core.el ends here ;;; prelude-core.el ends here

View file

@ -115,6 +115,9 @@
;; open an ansi-term buffer ;; open an ansi-term buffer
(global-set-key (kbd "C-x t") 'prelude-visit-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 ;; search with google
(global-set-key (kbd "C-c g") 'prelude-google) (global-set-key (kbd "C-c g") 'prelude-google)