(require 'bs)
(global-set-key (kbd "C-x C-b") 'bs-show)
(add-to-list 'bs-configurations
'("channels" nil nil "^[^#]" nil nil))
(add-to-list 'bs-configurations
'("targets" nil nil nil (lambda (buf)
(with-current-buffer buf
(not (erc-default-target)))) nil))
(add-to-list 'bs-configurations
'("dired" nil nil nil (lambda (buf)
(with-current-buffer buf
(not (eq major-mode 'dired-mode))))
nil))
(add-to-list 'bs-configurations
'("java" nil nil nil (lambda (buf)
(with-current-buffer buf
(not (eq major-mode 'jde-mode))))
nil))
(add-to-list 'bs-configurations
'("xml" nil nil nil (lambda (buf)
(with-current-buffer buf
(not (eq major-mode 'xml-mode))))
nil))
(autoload `cyclebuffer-forward "cyclebuffer" "cycle forward" t)
(autoload `cyclebuffer-backward "cyclebuffer" "cycle backward" t)
(autoload `cyclebuffer-forward-same-mode "cyclebuffer" "cycle forward" t)
(autoload `cyclebuffer-backward-same-mode "cyclebuffer" "cycle backward" t)
(global-set-key [(control tab)] 'cyclebuffer-forward-same-mode)
(global-set-key [(control backtab)] 'cyclebuffer-backward-same-mode)
(defun kill-current-buffer ()
"Kill the current buffer (prompting if it is modified)."
(interactive)
(kill-buffer (current-buffer)))
(defun kill-current-buffer-and-window ()
"Kill the current buffer (prompting if it is modified) and its window."
(interactive)
(kill-buffer (current-buffer))
(delete-window))
(require 'color-occur)
(require 'color-moccur)