awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

feat(lib): add doom-compile-function

Browse Source 
To be used in some autoloaded libraries, in case they haven't been
byte-compiled and contain especially expensive functions.
This commit is contained in:
Henrik Lissner
2022-09-12 16:13:25 +02:00
parent a18ea683d2
commit 3fe1641937
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/doom-lib.el
View File

@ -241,6 +241,15 @@ TRIGGER-HOOK is a list of quoted hooks and/or sharp-quoted functions."
((add-hook hook fn -101)))
fn)))
(defun doom-compile-function (fn &optional level)
"Compile FN, and natively, if possible."
(if (featurep 'native-compile)
(let ((native-comp-speed (or level native-comp-speed)))
(unless (subr-native-elisp-p (symbol-function fn))
(native-compile fn)))
(unless (byte-code-function-p (symbol-function fn))
(with-no-warnings (byte-compile fn)))))
;;
;;; Sugars