diff options
Diffstat (limited to 'perspective.el')
| -rw-r--r-- | perspective.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/perspective.el b/perspective.el index c501ee3..6fe0f45 100644 --- a/perspective.el +++ b/perspective.el @@ -1605,6 +1605,19 @@ PERSP-SET-IDO-BUFFERS)." (buffer-name (current-buffer)))))) (kill-buffer buffer-or-name)) +;; Buffer killing integration: kill all buffers in the current perspective +;; except the current one and the perspective's scratch buffer. +;;;###autoload +(defun persp-kill-other-buffers () + "Kill all buffers in the current perspective other than the current one. +Also excludes the perspective's scratch buffer." + (interactive) + (when (y-or-n-p "Are you sure you want to kill all buffers in the current perspective except the current buffer? ") + (cl-loop for buf in (persp-current-buffers) + unless (or (eq buf (current-buffer)) + (eq buf (get-buffer (persp-scratch-buffer)))) + do (kill-buffer buf)))) + ;; Buffer switching integration: buffer-menu. ;;;###autoload (defun persp-buffer-menu (arg) |