From f521823d3b5617235a8837bc41ccb2b63cd5c4a9 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 14 May 2020 22:37:39 -0400 Subject: [PATCH] Fix quiet! macro not silencing file loading --- core/core-lib.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/core/core-lib.el b/core/core-lib.el index 92e9331af..a4680456e 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -229,7 +229,7 @@ the same name, for use with `funcall' or `apply'. ARGLIST and BODY are as in (defmacro quiet! (&rest forms) "Run FORMS without generating any output. -This silences calls to `message', `load-file', `write-region' and anything that +This silences calls to `message', `load', `write-region' and anything that writes to `standard-output'." `(if doom-debug-mode (progn ,@forms) @@ -238,8 +238,9 @@ writes to `standard-output'." (save-silently t)) (prog1 ,@forms (message ""))) `(letf! ((standard-output (lambda (&rest _))) - (defun load-file (file) (load-file nil t)) (defun message (&rest _)) + (defun load (file &optional noerror nomessage nosuffix must-suffix) + (funcall load file noerror t nosuffix must-suffix)) (defun write-region (start end filename &optional append visit lockname mustbenew) (unless visit (setq visit 'no-message)) (funcall write-region start end filename append visit lockname mustbenew)))