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

Cheer up the byte-compiler

Browse source 
You deserve better than those warnings.
This commit is contained in:
Henrik Lissner 2019-05-02 21:54:47 -04:00
parent 25beb4bcfd
commit 388e0def2c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 16 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

17
core/core-lib.el
View file

@ -61,14 +61,15 @@ If a mode is quoted, it is left as is."
else collect (intern (format "%s-hook" (symbol-name hook)))))
(defun doom--assert-stage-p (stage macro)
(cl-assert (eq stage doom--stage)
nil
"Found %s call in non-%s.el file (%s)"
macro (symbol-name stage)
(let ((path (FILE!)))
(if (file-in-directory-p path doom-emacs-dir)
(file-relative-name path doom-emacs-dir)
(abbreviate-file-name path)))))
(unless (bound-and-true-p byte-compile-current-file)
(cl-assert (eq stage doom--stage)
nil
"Found %s call in non-%s.el file (%s)"
macro (symbol-name stage)
(let ((path (FILE!)))
(if (file-in-directory-p path doom-emacs-dir)
(file-relative-name path doom-emacs-dir)
(abbreviate-file-name path))))))
;;