branch: master
commit 50dc9e693a652be602c642f47423088774e04a42
Author: Basil L. Contovounesios <conto...@tcd.ie>
Commit: Basil L. Contovounesios <conto...@tcd.ie>
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."
