From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 28 Apr 2022 13:38:58 +0000 (-0400)
Subject: * lisp/emacs-lisp/nadvice.el: Fix bug#55149
X-Git-Tag: emacs-29.0.90~1931^2~240
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=799c7e277fc6a37bd8b86fea7494ff6df63f3eb1;p=emacs.git

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

diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index b3778c07bc0..b20415a2d3b 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)))