diff options
| -rw-r--r-- | lisp/startup.el | 16 |
1 files 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'." | |||
| 540 | (setq user-emacs-directory | 540 | (setq user-emacs-directory |
| 541 | (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) | 541 | (startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) |
| 542 | 542 | ||
| 543 | (unless (native-comp-available-p) | ||
| 544 | ;; Disable deferred async compilation and trampoline synthesis | ||
| 545 | ;; in this session. This is necessary if libgccjit is not | ||
| 546 | ;; available on MS-Windows, but Emacs was built with | ||
| 547 | ;; native-compilation support. | ||
| 548 | (setq native-comp-deferred-compilation nil | ||
| 549 | comp-enable-subr-trampolines nil)) | ||
| 550 | |||
| 551 | (when (featurep 'native-compile) | 543 | (when (featurep 'native-compile) |
| 544 | (unless (native-comp-available-p) | ||
| 545 | ;; Disable deferred async compilation and trampoline synthesis | ||
| 546 | ;; in this session. This is necessary if libgccjit is not | ||
| 547 | ;; available on MS-Windows, but Emacs was built with | ||
| 548 | ;; native-compilation support. | ||
| 549 | (setq native-comp-deferred-compilation nil | ||
| 550 | comp-enable-subr-trampolines nil)) | ||
| 551 | |||
| 552 | ;; Form `native-comp-eln-load-path'. | 552 | ;; Form `native-comp-eln-load-path'. |
| 553 | (let ((path-env (getenv "EMACSNATIVELOADPATH"))) | 553 | (let ((path-env (getenv "EMACSNATIVELOADPATH"))) |
| 554 | (when path-env | 554 | (when path-env |