From 098dc9ba21d9aa118f192fbe2250910fa3308120 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 12 Apr 2016 02:57:41 -0400 Subject: [PATCH] Fix narf/get-buffers (to only return current-wg buffers) --- core/defuns/defuns-buffers.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/core/defuns/defuns-buffers.el b/core/defuns/defuns-buffers.el index b6a4bfee4..ad9bace3d 100644 --- a/core/defuns/defuns-buffers.el +++ b/core/defuns/defuns-buffers.el @@ -41,7 +41,8 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/" If PROJECT-P is non-nil, get all buffers in current workgroup If both are non-nil, get all project buffers across all workgroups" - (let ((buffers (buffer-list)) + (let* ((assocbuf (wg-workgroup-associated-buffers nil)) + (buffers (--filter (memq it assocbuf) (buffer-list))) project-root) (if (and project-p (setq project-root (narf/project-root t))) (funcall (if (eq project-p 'not) '-remove '-filter)