* lisp/emacs-lisp/nadvice.el: Fix bug#55149

This commit is contained in:
Stefan Monnier 2022-04-28 09:38:58 -04:00
parent 5d032f2904
commit 799c7e277f

View file

@ -71,7 +71,7 @@
(advice--make-how-alist
(:around (apply car cdr r))
(:before (apply car r) (apply cdr r))
(:after (apply cdr r) (apply car r))
(:after (prog1 (apply cdr r) (apply car r)))
(:override (apply car r))
(:after-until (or (apply cdr r) (apply car r)))
(:after-while (and (apply cdr r) (apply car r)))