summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bog.el8
1 files changed, 4 insertions, 4 deletions
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)))))))