From ff717e5c2fab3344421b19c3f764a7702830fb41 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 16 Nov 2017 16:36:00 +0100 Subject: [PATCH] Refactor quiet! macro --- core/core-lib.el | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/core/core-lib.el b/core/core-lib.el index 0ffbca94d..2b8cec15b 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -162,18 +162,17 @@ compilation." "Run FORMS without making any noise." `(if doom-debug-mode (progn ,@forms) - (fset 'doom--old-write-region-fn (symbol-function 'write-region)) - (cl-letf ((standard-output (lambda (&rest _))) - ((symbol-function 'load-file) (lambda (file) (load file nil t))) - ((symbol-function 'message) (lambda (&rest _))) - ((symbol-function 'write-region) - (lambda (start end filename &optional append visit lockname mustbenew) - (unless visit (setq visit 'no-message)) - (doom--old-write-region-fn - start end filename append visit lockname mustbenew))) - (inhibit-message t) - (save-silently t)) - ,@forms))) + (let ((old-fn (symbol-function 'write-region))) + (cl-letf* ((standard-output (lambda (&rest _))) + ((symbol-function 'load-file) (lambda (file) (load file nil t))) + ((symbol-function 'message) (lambda (&rest _))) + ((symbol-function 'write-region) + (lambda (start end filename &optional append visit lockname mustbenew) + (unless visit (setq visit 'no-message)) + (funcall old-fn start end filename append visit lockname mustbenew))) + (inhibit-message t) + (save-silently t)) + ,@forms)))) (defvar doom--transient-counter 0) (defmacro add-transient-hook! (hook &rest forms)