added a helper function prelude-kill-other-buffers, that kills all
buffers, but the current one
This commit is contained in:
parent
48a25218ec
commit
70210075fa
2 changed files with 10 additions and 0 deletions
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue