[elpa] master 4e0d403 066/399: counsel.el (counsel--find-build-subdir): Simplify

[Oleh Krehel]

branch: master
commit 4e0d403c724703ad12e1ffbbbfaa1be9c1ea1257
Author: Basil L. Contovounesios <address@hidden>
Commit: Basil L. Contovounesios <address@hidden>

    counsel.el (counsel--find-build-subdir): Simplify
---
 counsel.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/counsel.el b/counsel.el
index fb07afc..98ced9a 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5198,13 +5198,11 @@ The optional BLDDIR is useful for other helpers that 
have found
       (counsel--get-make-targets srcdir blddir))))
 
 (defun counsel--find-build-subdir (srcdir)
-  "Return builds sub-directory of SRCDIR, if one exists."
-  (cl-some
-   (lambda (x)
-     (let ((check (expand-file-name x srcdir)))
-       (when (file-directory-p check)
-         check)))
-   counsel-compile-build-directories))
+  "Return builds subdirectory of SRCDIR, if one exists."
+  (cl-some (lambda (dir)
+             (setq dir (expand-file-name dir srcdir))
+             (and (file-directory-p dir) dir))
+           counsel-compile-build-directories))
 
 (defun counsel--get-build-subdirs (blddir)
   "Return all subdirs of BLDDIR sorted by access time."