From 363c875df6ea658e543df59c11497f79bfa36b54 Mon Sep 17 00:00:00 2001 From: Eric Danan Date: Wed, 16 Aug 2017 11:00:37 +0200 Subject: [PATCH] move cp-unvisited-file-list to relevant section --- counsel-projectile.el | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/counsel-projectile.el b/counsel-projectile.el index 214fa94..b84cbae 100644 --- a/counsel-projectile.el +++ b/counsel-projectile.el @@ -65,18 +65,6 @@ ;;; counsel-projectile-find-file -(defun counsel-projectile--unvisited-file-list () - "Return a list of unvisited files for the current project. - -Like `projectile-current-project-files', but skips any files -already being visited by a buffer." - (let ((root (projectile-project-root))) - (cl-loop - for name in (projectile-current-project-files) - for file = (expand-file-name name root) - if (not (get-file-buffer file)) - collect name))) - (defun counsel-projectile--find-file-action (file &optional other-window) "Find FILE and run `projectile-find-file-hook'." (funcall (if other-window @@ -368,6 +356,18 @@ invokes `projectile-commander' instead of ;;; counsel-projectile +(defun counsel-projectile--unvisited-file-list () + "Return a list of unvisited files for the current project. + +Like `projectile-current-project-files', but skips any files +already being visited by a buffer." + (let ((root (projectile-project-root))) + (cl-loop + for name in (projectile-current-project-files) + for file = (expand-file-name name root) + if (not (get-file-buffer file)) + collect name))) + (defun counsel-projectile--global-list () "Get a list of project buffers and files." (append