From 3560dfdb868556fb3f9ab3a5a1e5405f14c548c6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mattias=20Engdeg=C3=A5rd?= Date: Mon, 31 Jul 2023 16:14:07 +0200 Subject: [PATCH] ; Fix backport of help-fns--analyze-function bug fix * lisp/help-fns.el (help-fns--analyze-function): Add back the NOERROR argument to function-alias-p, needed because Emacs 29 doesn't prevent the creation of circular function aliases. This fixes a failure in help-fns-tests. --- lisp/help-fns.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index eb50f3b26ca..044bcf8b51f 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -995,7 +995,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)." (symbol-name function))))))) (real-def (cond ((and aliased (not (subrp def))) - (or (car (function-alias-p real-function)) + (or (car (function-alias-p real-function t)) real-function)) ((subrp def) (intern (subr-name def))) (t def))))