From 799c7e277fc6a37bd8b86fea7494ff6df63f3eb1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 28 Apr 2022 09:38:58 -0400 Subject: [PATCH] * 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 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))) -- 2.39.2