awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor cl-loop => cl-member in doom//byte-compile

Browse Source
This commit is contained in:
Henrik Lissner
2018-02-19 01:20:53 -05:00
parent 3c203b2cd4
commit 1a20c49ef3
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
core/core-packages.el
View File

@ -649,9 +649,7 @@ If RECOMPILE-P is non-nil, only recompile out-of-date files."
nconc (nreverse (doom-packages--files doom-core-dir "\\.el$")) nconc (nreverse (doom-packages--files doom-core-dir "\\.el$"))
else if (file-directory-p target) else if (file-directory-p target)
nconc (nreverse (doom-packages--files target "\\.el$")) nconc (nreverse (doom-packages--files target "\\.el$"))
else if (cl-loop for dir in doom-psuedo-module-dirs else if (cl-member target doom-psuedo-module-dirs :test #'file-in-directory-p)
if (file-in-directory-p target dir)
return dir)
nconc (nreverse (doom-packages--files it "\\.el$")) nconc (nreverse (doom-packages--files it "\\.el$"))
else if (string-match "^\\([^/]+\\)/\\([^/]+\\)$" target) else if (string-match "^\\([^/]+\\)/\\([^/]+\\)$" target)
nconc (nreverse (doom-packages--files nconc (nreverse (doom-packages--files