emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
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