emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp 0b58be4 3/7: Rename comp-subr-safe-advice -> comp-su


From: Andrea Corallo
Subject: feature/native-comp 0b58be4 3/7: Rename comp-subr-safe-advice -> comp-subr-trampoline-install
Date: Tue, 6 Oct 2020 12:37:43 -0400 (EDT)

branch: feature/native-comp
commit 0b58be4941c92d337eccadabaaba5ef8620c5b52
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    Rename comp-subr-safe-advice -> comp-subr-trampoline-install
---
 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 4df8743..fb67de3 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-trampoline-install 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 ef13c0c..7074ff7 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2614,7 +2614,7 @@ Return the its filename if found or nil otherwise."
 `comp-eln-load-path'")))))
 
 ;;;###autoload
-(defun comp-subr-safe-advice (subr-name)
+(defun comp-subr-trampoline-install (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 5b3aa70..0396132 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-trampoline-install subr-name))))
   (let* ((name (cdr (assq 'name props)))
          (a (advice--member-p (or name function) (if name t) (gv-deref ref))))
     (when a



reply via email to

[Prev in Thread] Current Thread [Next in Thread]