branch: externals/transient
commit 5cbe96749c3a06c1de5212ccd241842b60a04b2c
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Use define-advice instead of advice-add
---
lisp/transient.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 671f630535..c6533b48ce 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1067,7 +1067,8 @@ falling back to that of the same aliased command."
(put 'transient--default-infix-command 'completion-predicate
#'transient--suffix-only)
-(defun transient--find-function-advised-original (fn func)
+(define-advice find-function-advised-original
+ (:around (fn func) transient-default-infix)
"Return nil instead of `transient--default-infix-command'.
When using `find-function' to jump to the definition of a transient
infix command/argument, then we want to actually jump to that, not to
@@ -1075,8 +1076,6 @@ the definition of `transient--default-infix-command',
which all infix
commands are aliases for."
(let ((val (funcall fn func)))
(and val (not (eq val 'transient--default-infix-command)) val)))
-(advice-add 'find-function-advised-original :around
- #'transient--find-function-advised-original)
(eval-and-compile ;transient--expand-define-args
(defun transient--expand-define-args (args arglist form &optional nobody)
