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