emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
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
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
core/autoload/files.el
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 (and (file-symlink-p file)
(not follow-symlinks))) (not follow-symlinks)))
(<= mindepth 0) (<= mindepth 0)
(list (cond (map (funcall map file)) (list (if relative-to
(relative-to (file-relative-name file relative-to)) (file-relative-name file relative-to)
(file)))) file)))
(and (>= depth 1) (and (>= depth 1)
(apply #'doom-files-in file (apply #'doom-files-in file
(append (list :mindepth (1- mindepth) (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-relative-name file relative-to)
file) file)
result)))) result))))
result)) (if map
(mapcar map result)
result)))
;;;###autoload ;;;###autoload
(defun doom-file-cookie-p (file &optional cookie null-value) (defun doom-file-cookie-p (file &optional cookie null-value)