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

Fix empty load-file-name in warn! macro during byte-compilation

Browse Source
This commit is contained in:
Henrik Lissner
2018-02-14 20:52:25 -05:00
parent 0f404a513a
commit ae52b2ff60
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
core/autoload/message.el
View File

@ -83,11 +83,12 @@ interactive session."
;;;###autoload ;;;###autoload
(defmacro warn! (message &rest args) (defmacro warn! (message &rest args)
"Output a colored warning for the current module in the *Messages* buffer." "Output a colored warning for the current module in the *Messages* buffer."
(if (file-in-directory-p load-file-name doom-modules-dir) (let ((load-file-name (or load-file-name byte-compile-current-file)))
`(cl-destructuring-bind (cat . mod) (doom-module-from-path ,load-file-name) (if (file-in-directory-p load-file-name doom-modules-dir)
(delay-warning (format "%s %s" cat mod) (format ,message ,@args) :warning)) `(cl-destructuring-bind (cat . mod) (doom-module-from-path ,load-file-name)
`(delay-warning (file-relative-name load-file-name doom-emacs-dir) (delay-warning (format "%s %s" cat mod) (format ,message ,@args) :warning))
(format ,message ,@args) :warning))) `(delay-warning (file-relative-name load-file-name doom-emacs-dir)
(format ,message ,@args) :warning))))
;;;###autoload ;;;###autoload
(defmacro log! (message &rest args) (defmacro log! (message &rest args)