From 04f545ecf42fd862ae0f7dafab12688e61c4fae2 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 19 Feb 2015 23:02:15 -0500
Subject: Don't sort with directory-files if not user-facing

---
 bog.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'bog.el')

diff --git a/bog.el b/bog.el
index 9a9b1f8..d3996c7 100644
--- a/bog.el
+++ b/bog.el
@@ -658,7 +658,7 @@ Generate a file name with the form
   (let (dirs)
     (if bog-subdirectory-group
         (dolist (df (directory-files bog-file-directory t
-                                     directory-files-no-dot-files-regexp))
+                                     directory-files-no-dot-files-regexp t))
           (when (and (file-readable-p df) (file-directory-p df))
             (push df dirs)))
       (push bog-file-directory dirs))
@@ -666,7 +666,7 @@ Generate a file name with the form
      (lambda (dir)
        (cl-remove-if #'file-directory-p
                      (directory-files
-                      dir t directory-files-no-dot-files-regexp)))
+                      dir t directory-files-no-dot-files-regexp t)))
      dirs)))
 
 (defun bog-staged-files ()
@@ -807,14 +807,14 @@ instead of citekeys from file names in `bog-bib-directory'."
         (if bog-subdirectory-group
             (dolist (df (directory-files
                          bog-bib-directory t
-                         directory-files-no-dot-files-regexp))
+                         directory-files-no-dot-files-regexp t))
               (when (and (file-readable-p df) (file-directory-p df))
                 (push df dirs)))
           (push bog-bib-directory dirs))
         (bog--maybe-sort
          (mapcar #'file-name-sans-extension
                  (cl-mapcan
-                  (lambda (dir) (directory-files dir nil ".*\\.bib$"))
+                  (lambda (dir) (directory-files dir nil ".*\\.bib$" t))
                   dirs)))))))
 
 
-- 
cgit v1.2.3