From efaa0ebca9ec445329643fea2f9fe883d7ccdc3a Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 11 Feb 2022 15:19:56 +0100 Subject: [PATCH] * lisp/startup.el (normal-top-level): Small code move, improve 202d3be873. --- lisp/startup.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index d369f3ef84e..9ebd4c1a707 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -540,15 +540,15 @@ It is the default value of the variable `top-level'." (setq user-emacs-directory (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) - (unless (native-comp-available-p) - ;; Disable deferred async compilation and trampoline synthesis - ;; in this session. This is necessary if libgccjit is not - ;; available on MS-Windows, but Emacs was built with - ;; native-compilation support. - (setq native-comp-deferred-compilation nil - comp-enable-subr-trampolines nil)) - (when (featurep 'native-compile) + (unless (native-comp-available-p) + ;; Disable deferred async compilation and trampoline synthesis + ;; in this session. This is necessary if libgccjit is not + ;; available on MS-Windows, but Emacs was built with + ;; native-compilation support. + (setq native-comp-deferred-compilation nil + comp-enable-subr-trampolines nil)) + ;; Form `native-comp-eln-load-path'. (let ((path-env (getenv "EMACSNATIVELOADPATH"))) (when path-env -- 2.39.2