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

Refactor quiet! macro

Browse Source
This commit is contained in:
Henrik Lissner
2017-11-16 16:36:00 +01:00
parent 5364260a5c
commit ff717e5c2f
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
core/core-lib.el
View File

@ -162,18 +162,17 @@ compilation."
"Run FORMS without making any noise." "Run FORMS without making any noise."
`(if doom-debug-mode `(if doom-debug-mode
(progn ,@forms) (progn ,@forms)
(fset 'doom--old-write-region-fn (symbol-function 'write-region)) (let ((old-fn (symbol-function 'write-region)))
(cl-letf ((standard-output (lambda (&rest _))) (cl-letf* ((standard-output (lambda (&rest _)))
((symbol-function 'load-file) (lambda (file) (load file nil t))) ((symbol-function 'load-file) (lambda (file) (load file nil t)))
((symbol-function 'message) (lambda (&rest _))) ((symbol-function 'message) (lambda (&rest _)))
((symbol-function 'write-region) ((symbol-function 'write-region)
(lambda (start end filename &optional append visit lockname mustbenew) (lambda (start end filename &optional append visit lockname mustbenew)
(unless visit (setq visit 'no-message)) (unless visit (setq visit 'no-message))
(doom--old-write-region-fn (funcall old-fn start end filename append visit lockname mustbenew)))
start end filename append visit lockname mustbenew))) (inhibit-message t)
(inhibit-message t) (save-silently t))
(save-silently t)) ,@forms))))
,@forms)))
(defvar doom--transient-counter 0) (defvar doom--transient-counter 0)
(defmacro add-transient-hook! (hook &rest forms) (defmacro add-transient-hook! (hook &rest forms)