From c64bd4a666c62d713bfcbda23a5f03855f91f021 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 13 Apr 2016 23:20:42 -0400 Subject: [PATCH] Fix narf/get-buffers in no-workgroup sessions --- core/defuns/defuns-buffers.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/core/defuns/defuns-buffers.el b/core/defuns/defuns-buffers.el index e16e4facc..205dd1556 100644 --- a/core/defuns/defuns-buffers.el +++ b/core/defuns/defuns-buffers.el @@ -42,11 +42,13 @@ 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* ((assocbuf (wg-workgroup-associated-buffers nil)) - (buffers (--filter (memq it assocbuf) (buffer-list))) + (buffers (if (wg-current-workgroup t) + (--filter (memq it assocbuf) (buffer-list)) + (buffer-list))) project-root) - (if (and project-p (setq project-root (narf/project-root t))) + (aif (and project-p (narf/project-root t)) (funcall (if (eq project-p 'not) '-remove '-filter) - (lambda (b) (projectile-project-buffer-p b project-root)) + (lambda (b) (projectile-project-buffer-p b it)) buffers) buffers)))