From bbf733c5e07b70628867e91452f12f6e309e848a Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 1 Nov 2024 03:00:02 -0400 Subject: [PATCH] fix: profile loader file path Should load the byte-compiled version of the file (and produce one without a redundant emacs version suffix). Amend: 9ae7aa112278 --- early-init.el | 2 +- lisp/doom-profiles.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/early-init.el b/early-init.el index a85d620dc..247b6092c 100644 --- a/early-init.el +++ b/early-init.el @@ -85,7 +85,7 @@ (expand-file-name (format (or (getenv-internal "DOOMPROFILELOADFILE") (file-name-concat (if windows? "doomemacs/data" "doom") - "profiles.%d.el")) + "profiles.%d.elc")) emacs-major-version) (or (if windows? (getenv-internal "LOCALAPPDATA")) (getenv-internal "XDG_DATA_HOME") diff --git a/lisp/doom-profiles.el b/lisp/doom-profiles.el index 4d3f690dc..47b09de64 100644 --- a/lisp/doom-profiles.el +++ b/lisp/doom-profiles.el @@ -248,7 +248,7 @@ caches them in `doom--profiles'. If RELOAD? is non-nil, refresh the cache." (print-group! (or (let ((byte-compile-warnings (if init-file-debug byte-compile-warnings)) (byte-compile-dest-file-function - (lambda (_) (format "%s.%d.elc" (file-name-sans-extension file) emacs-major-version)))) + (lambda (_) (format "%s.elc" (file-name-sans-extension file))))) (byte-compile-file file)) ;; Do it again? So the errors/warnings are visible? ;; (let ((byte-compile-warnings t))