Appease byte-compiler senpai

This commit is contained in:
Henrik Lissner 2017-07-14 18:19:08 +02:00
parent ac514d7a0c
commit 6a5bd216e5
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
12 changed files with 28 additions and 26 deletions

View file

@ -592,10 +592,11 @@ If ONLY-RECOMPILE-P is non-nil, only recompile out-of-date files."
else if (file-exists-p path)
collect path)))
(dolist (file el-files)
(when (or (not only-recompile-p)
(let ((elc-file (byte-compile-dest-file file)))
(and (file-exists-p elc-file)
(file-newer-than-file-p file elc-file))))
(when (and (not (string-match-p "/test/.+\\.el$" file))
(or (not only-recompile-p)
(let ((elc-file (byte-compile-dest-file file)))
(and (file-exists-p elc-file)
(file-newer-than-file-p file elc-file)))))
(let ((result (byte-compile-file file))
(short-name (file-relative-name file doom-emacs-dir)))
(cl-incf