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)