fix(lib): unused :map property in doom-files-in

This commit is contained in:
Henrik Lissner 2022-05-05 14:13:08 +02:00
parent 258104f750
commit 10d00b7cc4
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -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)