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

Fix quiet! macro not silencing file loading

Browse source
This commit is contained in:
Henrik Lissner 2020-05-14 22:37:39 -04:00
parent fc90e0fb71
commit f521823d3b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
core/core-lib.el
View file

@ -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)))