pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

NATIVE COMP IS WORKING

Browse source
This commit is contained in:
Benson Chu 2023-03-02 16:17:07 -06:00
parent 2ee17153e1
commit 2dd0f3038c
2 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
init.el
View file

@ -51,6 +51,10 @@
(require 'emacs-custom-load-or-ask)
(require 'my-predicates)
(when (and my-ec/at-ti
(string-match-p ".*NATIVE_COMP.*" system-configuration-features))
(setenv "PATH" (concat "/db/sds/packages2/emacs-master/bin:" (getenv "PATH"))))
(require 'my-keymap)
(when (boundp 'face--new-frame-defaults)

20
lisp/ti-config/work-config.el
View file

@ -148,5 +148,25 @@
(define-key tablegen-mode-map (kbd "M-.") #'ll/jump-to-tablegen)
;; (when (string-match-p ".*NATIVE_COMP.*" system-configuration-features)
;; (defun replace-path-for-async-native-comp (orig &rest args)
;; (let ((path (getenv "PATH")))
;; (setenv "PATH" (concat "/db/sds/packages2/emacs-master/bin:" path))
;; (apply orig args)))
;; (defun replace-path-for-native-comp (orig &rest args)
;; (let ((path (getenv "PATH")))
;; (setenv "PATH" (concat "/db/sds/packages2/emacs-master/bin:" path))
;; (apply orig args)
;; (setenv "PATH" path)))
;; (advice-add #'native-compile
;; :around
;; #'replace-path-for-native-comp)
;; (advice-add #'native-compile-async
;; :around
;; #'replace-path-for-async-native-comp))
(provide 'work-config)
;;; work-config.el ends here