minor fix to prelude-kill-other-buffers

This commit is contained in:
Bozhidar Batsov 2012-01-26 16:57:51 +02:00
parent 70210075fa
commit 32b38787d6

View file

@ -352,10 +352,10 @@ there's a region, all lines that region covers will be duplicated."
(other-window 1)) (other-window 1))
(defun prelude-kill-other-buffers () (defun prelude-kill-other-buffers ()
"Kill all buffers but the current one" "Kill all buffers but the current one. Doesn't mess with special buffers."
(interactive) (interactive)
(dolist (buffer (buffer-list)) (dolist (buffer (buffer-list))
(unless (eql buffer (current-buffer)) (unless (or (eql buffer (current-buffer)) (not (buffer-file-name buffer)))
(kill-buffer buffer)))) (kill-buffer buffer))))
(provide 'prelude-core) (provide 'prelude-core)