From f2918264af77e47f535db3c62d82c5a974634b13 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 14 Oct 2016 20:40:59 -0400 Subject: Replace projectile-kill-other-buffers with visible variant --- lisp/km-projectile.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'lisp') 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 -- cgit v1.2.3