diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-09-23 22:01:45 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-09-24 09:57:17 +0200 |
| commit | e5b052d60d905209c6cefcf18c620167ed946301 (patch) | |
| tree | f3ed112f578df41a61aea2a62baa8c10a8b964c9 /lisp/emacs-lisp | |
| parent | 6d83902ffd0c50a3157c4c61cd636433b212f709 (diff) | |
| download | emacs-e5b052d60d905209c6cefcf18c620167ed946301.tar.gz emacs-e5b052d60d905209c6cefcf18c620167ed946301.tar.bz2 emacs-e5b052d60d905209c6cefcf18c620167ed946301.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 | ||||
| -rw-r--r-- | 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 4c19197024d..4df8743de50 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 07b0ccee3cb..cac63a59785 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 32b5df8f261..5b3aa708508 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 |