diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-05-06 10:26:33 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-05-06 17:16:07 +0200 |
| commit | 31ca1c3e81b26357692c4c2428744f7f2f153596 (patch) | |
| tree | c6d89341f5f5b1a9e0518b3adcdcc808d760c3f7 /lisp/emacs-lisp/comp.el | |
| parent | 85b61c0c58c5198715e5b7bfff9d7319a6ab1a2c (diff) | |
| download | emacs-31ca1c3e81b26357692c4c2428744f7f2f153596.tar.gz emacs-31ca1c3e81b26357692c4c2428744f7f2f153596.tar.bz2 emacs-31ca1c3e81b26357692c4c2428744f7f2f153596.zip | |
Rename comp-never-optimize-functions → native-comp-never-optimize-functions
* lisp/emacs-lisp/nadvice.el (advice--add-function): Rename
comp-never-optimize-functions → native-comp-never-optimize-functions.
* lisp/emacs-lisp/comp.el (native-comp-never-optimize-functions)
(comp-subr-trampoline-install, comp-call-optim-form-call): Likewise.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 621bb81455d..b1b55914043 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -98,7 +98,7 @@ during bootstrap." :type '(repeat regexp) :version "28.1") -(defcustom comp-never-optimize-functions +(defcustom native-comp-never-optimize-functions '(;; The following two are mandatory for Emacs to be working ;; correctly (see comment in `advice--add-function'). DO NOT ;; REMOVE. @@ -662,7 +662,7 @@ Useful to hook into pass checkers.") (defun comp-subr-trampoline-install (subr-name) "Make SUBR-NAME effectively advice-able when called from native code." (unless (or (null comp-enable-subr-trampolines) - (memq subr-name comp-never-optimize-functions) + (memq subr-name native-comp-never-optimize-functions) (gethash subr-name comp-installed-trampolines-h)) (cl-assert (subr-primitive-p (symbol-function subr-name))) (comp--install-trampoline @@ -3275,7 +3275,7 @@ FUNCTION can be a function-name or byte compiled function." (when (and callee (or (symbolp callee) (gethash callee (comp-ctxt-byte-func-to-func-h comp-ctxt))) - (not (memq callee comp-never-optimize-functions))) + (not (memq callee native-comp-never-optimize-functions))) (let* ((f (if (symbolp callee) (symbol-function callee) (cl-assert (byte-code-function-p callee)) |