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

[Stefan Monnier]

branch: master
commit 799c7e277fc6a37bd8b86fea7494ff6df63f3eb1
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/nadvice.el: Fix bug#55149
---
 lisp/emacs-lisp/nadvice.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index b3778c07bc..b20415a2d3 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -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)))