|
|
|
@ -357,11 +357,12 @@ Repeated invocations toggle between the two most recently open buffers." |
|
|
|
"Kill all buffers but the current one. |
|
|
|
Doesn't mess with special buffers." |
|
|
|
(interactive) |
|
|
|
(when (y-or-n-p "Are you sure you want to kill all buffers but the current one? ") |
|
|
|
(-each |
|
|
|
(->> (buffer-list) |
|
|
|
(-filter #'buffer-file-name) |
|
|
|
(--remove (eql (current-buffer) it))) |
|
|
|
#'kill-buffer)) |
|
|
|
#'kill-buffer))) |
|
|
|
|
|
|
|
(defun prelude-create-scratch-buffer () |
|
|
|
"Create a new scratch buffer." |
|
|
|
|