emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix packages evading native-compilation

Browse source 
(featurep 'nativecomp) will never return t.
This commit is contained in:
Henrik Lissner 2021-05-23 21:41:32 -04:00
parent 4b5cf7d46f
commit 13f316e645
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/cli/packages.el
View file

@ -332,13 +332,12 @@ declaration) or dependency thereof that hasn't already been."
(want-native-compile (want-native-compile
(or (eq build t) (or (eq build t)
(memq 'native-compile build)))) (memq 'native-compile build))))
(when (eq (car-safe build) :not) (and (eq (car-safe build) :not)
(setq want-byte-compile (not want-byte-compile) (setq want-byte-compile (not want-byte-compile)
want-native-compile (not want-native-compile))) want-native-compile (not want-native-compile)))
(unless (and (require 'comp nil t) (or (and (require 'comp nil t)
(featurep 'nativecomp) (ignore-errors (native-comp-available-p)))
(ignore-errors (native-comp-available-p))) (setq want-native-compile nil))
(setq want-native-compile nil))
(and (or want-byte-compile want-native-compile) (and (or want-byte-compile want-native-compile)
(or (file-newer-than-file-p repo-dir build-dir) (or (file-newer-than-file-p repo-dir build-dir)
(file-exists-p (straight--modified-dir (or local-repo package))) (file-exists-p (straight--modified-dir (or local-repo package)))