From fdcab58a1b28a3b2bde23789e2a4c9c1391070b6 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 8 Nov 2024 01:09:52 -0500 Subject: [PATCH] fix: raise compile errors from profile init files Otherwise, errors in package/module/user autoloads could cause `doom sync` to silently and invisibly fail. Fix: #7253 --- lisp/lib/profiles.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/lib/profiles.el b/lisp/lib/profiles.el index 5092c309d..19b699b3f 100644 --- a/lisp/lib/profiles.el +++ b/lisp/lib/profiles.el @@ -204,7 +204,8 @@ run.") :mode (cons #o600 #o700) :printfn #'prin1) (print-group! - (or (let ((byte-compile-warnings (if init-file-debug byte-compile-warnings)) + (or (let ((byte-compile-debug t) + (byte-compile-warnings (if init-file-debug byte-compile-warnings)) (byte-compile-dest-file-function (lambda (_) (format "%s.elc" (file-name-sans-extension file))))) (byte-compile-file file)) @@ -303,7 +304,8 @@ caches them in `doom--profiles'. If RELOAD? is non-nil, refresh the cache." (current-buffer))) (print! (start "Byte-compiling %s...") (relpath init-file)) (print-group! - (let ((byte-compile-warnings (if init-file-debug '(suspicious make-local callargs)))) + (let ((byte-compile-debug t) + (byte-compile-warnings (if init-file-debug '(suspicious make-local callargs)))) (byte-compile-file init-file))) (print! (success "Built %s") (byte-compile-dest-file init-file)))) (error (delete-file init-file)