From 10d00b7cc43323e79f365d3a9be2fa37ed398d88 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 5 May 2022 14:13:08 +0200 Subject: [PATCH] fix(lib): unused :map property in doom-files-in --- core/autoload/files.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/core/autoload/files.el b/core/autoload/files.el index 66fde922a..7fd96d57f 100644 --- a/core/autoload/files.el +++ b/core/autoload/files.el @@ -111,9 +111,9 @@ MATCH is a string regexp. Only entries that match it will be included." (not (and (file-symlink-p file) (not follow-symlinks))) (<= mindepth 0) - (list (cond (map (funcall map file)) - (relative-to (file-relative-name file relative-to)) - (file)))) + (list (if relative-to + (file-relative-name file relative-to) + file))) (and (>= depth 1) (apply #'doom-files-in file (append (list :mindepth (1- mindepth) @@ -128,7 +128,9 @@ MATCH is a string regexp. Only entries that match it will be included." (file-relative-name file relative-to) file) result)))) - result)) + (if map + (mapcar map result) + result))) ;;;###autoload (defun doom-file-cookie-p (file &optional cookie null-value)