diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-projectile.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/km-projectile.el b/lisp/km-projectile.el index 79666d5..4bf38b3 100644 --- a/lisp/km-projectile.el +++ b/lisp/km-projectile.el @@ -180,14 +180,14 @@ Like `projectile-kill-buffers', but (projectile-kill-buffers))) ;;;###autoload -(defun km/projectile-kill-other-buffers () - "Kill all project buffers except the current one." +(defun km/projectile-kill-nondisplayed-buffers () + "Kill project buffers that aren't displayed in current frame" (interactive) - (let ((cbuf (current-buffer))) - (mapc #'kill-buffer - (cl-remove-if - (lambda (b) (or (buffer-base-buffer b) (eq cbuf b))) - (projectile-project-buffers))))) + (mapc #'kill-buffer + (cl-remove-if + (lambda (b) (or (buffer-base-buffer b) + (get-buffer-window b))) + (projectile-project-buffers)))) (provide 'km-projectile) ;;; km-projectile.el ends here |