mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

Rename comp-subr-safe-advice -> comp-subr-trampoline-install

Browse source
This commit is contained in:
Andrea Corallo 2020-10-02 22:18:57 +02:00
parent b3ade4de17
commit 0b58be4941
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/nadvice.el
View file

@ -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