Fix narf/get-buffers (to only return current-wg buffers)

This commit is contained in:
Henrik Lissner 2016-04-12 02:57:41 -04:00
parent 1c80d928e8
commit 098dc9ba21

View file

@ -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 PROJECT-P is non-nil, get all buffers in current workgroup
If both are non-nil, get all project buffers across all workgroups" 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) project-root)
(if (and project-p (setq project-root (narf/project-root t))) (if (and project-p (setq project-root (narf/project-root t)))
(funcall (if (eq project-p 'not) '-remove '-filter) (funcall (if (eq project-p 'not) '-remove '-filter)