awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-05 12:37:33 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(cli): silence output from site-lisp

Browse Source 
Some site files will forcibly undo `inhibit-message` or set
`force-load-messages`. This ensures site lisp files don't make
unnecessary noise at startup.
This commit is contained in:
Henrik Lissner
2024-03-11 03:27:38 -04:00
parent 559171575e
commit a0a1babc0d
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/doom-cli.el
View File

@ -25,22 +25,22 @@
;; HACK: Load `cl' and site files manually to prevent polluting logs and ;; HACK: Load `cl' and site files manually to prevent polluting logs and
;; stdout with deprecation and/or file load messages. ;; stdout with deprecation and/or file load messages.
(let ((inhibit-message (not init-file-debug))) (quiet!
(require 'cl nil t) (require 'cl nil t)
(unless site-run-file (unless site-run-file
(let ((site-run-file "site-start") (let ((site-run-file "site-start")
(tail load-path) (tail load-path)
(lispdir (expand-file-name "../lisp" data-directory)) (lispdir (expand-file-name "../lisp" data-directory))
dir) dir)
(while tail (while tail
(setq dir (car tail)) (setq dir (car tail))
(let ((default-directory dir)) (let ((default-directory dir))
(load (expand-file-name "subdirs.el") t inhibit-message t)) (load (expand-file-name "subdirs.el") t inhibit-message t))
(unless (string-prefix-p lispdir dir) (unless (string-prefix-p lispdir dir)
(let ((default-directory dir)) (let ((default-directory dir))
(load (expand-file-name "leim-list.el") t inhibit-message t))) (load (expand-file-name "leim-list.el") t inhibit-message t)))
(setq tail (cdr tail))) (setq tail (cdr tail)))
(load site-run-file t inhibit-message)))) (load site-run-file t inhibit-message))))
(setq-default (setq-default
;; PERF: Don't generate superfluous files when writing temp buffers. ;; PERF: Don't generate superfluous files when writing temp buffers.