Use (delete-other-windows) in kill defuns

This commit is contained in:
Henrik Lissner 2014-08-13 02:48:49 -04:00
parent b9d3339db4
commit a58f4246ba

View file

@ -60,12 +60,14 @@
(defun my/kill-all-buffers ()
"Kill all buffers, even the one you're in"
(interactive)
(delete-other-windows)
(mapc 'kill-buffer (buffer-list))
(message "All buffers killed"))
(defun my/kill-other-buffers ()
"Kill all buffers but the one you're in"
(interactive)
(delete-other-windows)
(mapc 'kill-buffer (cdr (buffer-list (current-buffer))))
(message "All other buffers killed"))