From cddc6ec3d950338ea63438709fecccb7ce30d5e8 Mon Sep 17 00:00:00 2001 From: dickmao Date: Thu, 28 Apr 2022 01:14:09 -0400 Subject: [PATCH] Transcription error * lisp/emacs-lisp/nadvice.el (advice--how-alist): Transcribe. --- 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--how-alist (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.35.1