procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Some more `inhibit-native-compile' clean-up

Browse source 
* lisp/emacs-lisp/generate-lisp-file.el (generate-lisp-file-trailer):
Use `native-comp-deferred-compilation'.
This commit is contained in:
Andrea Corallo 2023-02-13 10:26:03 +01:00
parent c0681cd347
commit b6e2799aa1
2 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/comp.el
View file

@ -4107,14 +4107,12 @@ the deferred compilation mechanism."
data
;; So we return the compiled function.
(native-elisp-load data)))
;; We may have created a temporary file when we're being
;; called with something other than a file as the argument.
;; Delete it if we can.
(when (and (not (stringp function-or-file))
(not output)
comp-ctxt
(comp-ctxt-output comp-ctxt)
(file-exists-p (comp-ctxt-output comp-ctxt)))
;; NOTE: Not sure if we want to remove this or being cautious.
(cond ((eq 'windows-nt system-type)
;; We may still be using the temporary .eln file.
(ignore-errors (delete-file (comp-ctxt-output comp-ctxt))))

2
lisp/emacs-lisp/generate-lisp-file.el
View file

@ -103,7 +103,7 @@ if it's also byte-compiled)."
(insert ";; no-byte-" "compile: t\n"))
(unless autoloads
(insert ";; no-update-autoloads: t\n"))
(when inhibit-native-compile
(unless native-comp-deferred-compilation
(insert ";; no-native-" "compile: t\n"))
(when coding
(insert (format ";; coding: %s\n"