branch: master
commit d64b26849bcacd5533beef46985bb23e6e3b3ef2
Author: Alex Bennée <alex.ben...@linaro.org>
Commit: Oleh Krehel <ohwoeo...@gmail.com>

    counsel.el (counsel-compile): counsel--get-build-subdirs
    
    Ensure commentary matches reality.
---
 counsel.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/counsel.el b/counsel.el
index 75b670d..aae7393 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5222,11 +5222,10 @@ subdirectories that builds may be invoked in."
            counsel-compile-build-directories))
 
 (defun counsel--get-build-subdirs (blddir)
-  "Return all subdirs of BLDDIR sorted by access time."
+  "Return all subdirs of BLDDIR sorted by modification 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)

Reply via email to