From f6039eaee32b8ad2573b402809a6da79f09e1095 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 14 Feb 2018 00:51:20 -0500 Subject: [PATCH] Use delay-warning instead of message in warn! macro --- core/autoload/message.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/core/autoload/message.el b/core/autoload/message.el index 0284d1f5f..0c79de542 100644 --- a/core/autoload/message.el +++ b/core/autoload/message.el @@ -82,14 +82,11 @@ interactive session." ;;;###autoload (defmacro warn! (message &rest args) "Output a colored warning for the current module in the *Messages* buffer." - (let ((msg (format "WARNING: %s" (format message args)))) - (if (file-in-directory-p load-file-name doom-modules-dir) - `(cl-destructuring-bind (cat . mod) (doom-module-from-path load-file-name) - (message - "%s" - (propertize (format "%s %s" (list cat mod) ,msg) - 'face 'warning))) - `(message "%s" (propertize ,msg 'face 'warning))))) + (if (file-in-directory-p load-file-name doom-modules-dir) + `(cl-destructuring-bind (cat . mod) (doom-module-from-path ,load-file-name) + (delay-warning (format "%s %s" cat mod) (format ,message ,@args) :warning)) + `(delay-warning (file-relative-name load-file-name doom-emacs-dir) + (format ,message ,@args) :warning))) ;;;###autoload (defmacro log! (message &rest args)