[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp e5b052d 11/11: Rename comp--subr-safe-advice -> comp
From: |
Andrea Corallo |
Subject: |
feature/native-comp e5b052d 11/11: Rename comp--subr-safe-advice -> comp-subr-safe-advice |
Date: |
Thu, 24 Sep 2020 04:13:19 -0400 (EDT) |
branch: feature/native-comp
commit e5b052d60d905209c6cefcf18c620167ed946301
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
Rename comp--subr-safe-advice -> comp-subr-safe-advice
* lisp/emacs-lisp/comp.el (comp-subr-safe-advice): Rename
comp--subr-safe-advice -> comp-subr-safe-advice.
* lisp/emacs-lisp/nadvice.el (advice--add-function): Likewise.
* lisp/emacs-lisp/advice.el (ad-add-advice): Likewise.
---
lisp/emacs-lisp/advice.el | 2 +-
lisp/emacs-lisp/comp.el | 2 +-
lisp/emacs-lisp/nadvice.el | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 4c19197..4df8743 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2076,7 +2076,7 @@ If FUNCTION was not advised already, its advice info will
be
initialized. Redefining a piece of advice whose name is part of
the cache-id will clear the cache."
(when (subr-primitive-p (symbol-function function))
- (comp--subr-safe-advice function))
+ (comp-subr-safe-advice function))
(cond ((not (ad-is-advised function))
(ad-initialize-advice-info function)
(ad-set-advice-info-field
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 07b0cce..cac63a5 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2595,7 +2595,7 @@ Return the its filename if found or nil otherwise."
comp-native-version-dir)))))
;;;###autoload
-(defun comp--subr-safe-advice (subr-name)
+(defun comp-subr-safe-advice (subr-name)
"Make SUBR-NAME effectively advice-able when called from native code."
(unless (or (memq subr-name comp-never-optimize-functions)
(gethash subr-name comp-installed-trampolines-h))
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index 32b5df8..5b3aa70 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -333,7 +333,7 @@ is also interactive. There are 3 cases:
;; Must require explicitly as during bootstrap we have no
;; autoloads.
(require 'comp)
- (comp--subr-safe-advice subr-name))))
+ (comp-subr-safe-advice subr-name))))
(let* ((name (cdr (assq 'name props)))
(a (advice--member-p (or name function) (if name t) (gv-deref ref))))
(when a
- feature/native-comp updated (4a50f54 -> e5b052d), Andrea Corallo, 2020/09/24
- feature/native-comp 63c65b4 01/11: * lisp/emacs-lisp/comp.el (native-compile): Add OUTPUT parameter., Andrea Corallo, 2020/09/24
- feature/native-comp 2ab0966 03/11: Make CHECK_SUBR public, Andrea Corallo, 2020/09/24
- feature/native-comp 3ec1b93 05/11: * Add `comp--subr-safe-advice' entry point, Andrea Corallo, 2020/09/24
- feature/native-comp 2f78ac3 04/11: * Add `comp--install-trampoline' machinery, Andrea Corallo, 2020/09/24
- feature/native-comp 0cc1804 07/11: Add a test for primitive advicing effectiveness, Andrea Corallo, 2020/09/24
- feature/native-comp b94a0a9 08/11: * lisp/emacs-lisp/comp.el (comp-never-optimize-functions): Clean-up., Andrea Corallo, 2020/09/24
- feature/native-comp 9d4fd66 02/11: * lisp/emacs-lisp/comp.el (comp-final): Log when interactively invoked., Andrea Corallo, 2020/09/24
- feature/native-comp 6d83902 10/11: * lisp/emacs-lisp/comp.el (comp-body-eff): Improve style., Andrea Corallo, 2020/09/24
- feature/native-comp 94736c4 09/11: Do not install a subr trampoline twice, Andrea Corallo, 2020/09/24
- feature/native-comp e5b052d 11/11: Rename comp--subr-safe-advice -> comp-subr-safe-advice,
Andrea Corallo <=
- feature/native-comp db354ff 06/11: Call `comp--subr-safe-advice' from the advice machinery, Andrea Corallo, 2020/09/24