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

diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index b3778c07bc08ae64da98d19025539848aba36504..b20415a2d3b49fd3893d2fe66c08f3f31b1a6929 100644 (file)
--- 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)))