[elpa] master 50dc9e6 065/399: counsel.el (counsel--get-build-subdirs): Fix

[Oleh Krehel]

branch: master
commit 50dc9e693a652be602c642f47423088774e04a42
Author: Basil L. Contovounesios <address@hidden>
Commit: Basil L. Contovounesios <address@hidden>

    counsel.el (counsel--get-build-subdirs): Fix
    
    Fix typo in docstring.  Replace the invalid rx form with
    directory-files-no-dot-files-regexp.
---
 counsel.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/counsel.el b/counsel.el
index 5072dd9..fb07afc 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5207,13 +5207,12 @@ The optional BLDDIR is useful for other helpers that 
have found
    counsel-compile-build-directories))
 
 (defun counsel--get-build-subdirs (blddir)
-  "Return all subdues of BLDDIR sorted by access time."
-  (mapcar #'car
-          (sort
-           (directory-files-and-attributes blddir
-                                           t (rx (not (in "." ".."))))
-           (lambda (x y)
-             (time-less-p (nth 6 y) (nth 6 x))))))
+  "Return all subdirs of BLDDIR sorted by access time."
+  (mapcar #'car (sort (directory-files-and-attributes
+                       blddir t directory-files-no-dot-files-regexp t)
+                      (lambda (x y)
+                        ;; FIXME: Access time is NOT the 7th file attribute.
+                        (time-less-p (nth 6 y) (nth 6 x))))))
 
 (defun counsel-compile-get-build-directories (&optional dir)
   "Return a list of potential build directories."