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.

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 4c19197024d4e4a1a5d891c49a01e47fa803ecee..4df8743de501494de850eb62b3fb09c5bbbbfff9 100644 (file)
--- 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 07b0ccee3cb62a95cece68feb10827f37d7588c4..cac63a5978559884d3ee689f53483d0cbb2c8ebf 100644 (file)
--- 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 32b5df8f261f3948172624f2fd8634e63953ea5c..5b3aa7085082fc2b3146d6b489a4fe080ac69f29 100644 (file)
--- 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