mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

* lisp/startup.el (normal-top-level): Disable native-comp if not available

Browse Source
This commit is contained in:
Andrea Corallo 2022-02-10 09:46:31 +01:00
parent 69e82968d7
commit 202d3be873
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/startup.el
View File

@ -537,6 +537,13 @@ It is the default value of the variable `top-level'."
(setq user-emacs-directory (setq user-emacs-directory
(startup--xdg-or-homedot startup--xdg-config-home-emacs nil)) (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.
(setq native-comp-deferred-compilation nil
comp-enable-subr-trampolines nil))
(when (featurep 'native-compile) (when (featurep 'native-compile)
;; Form `native-comp-eln-load-path'. ;; Form `native-comp-eln-load-path'.
(let ((path-env (getenv "EMACSNATIVELOADPATH"))) (let ((path-env (getenv "EMACSNATIVELOADPATH")))