From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 27 Jul 2023 14:13:54 +0000 (+0200)
Subject: Fix function help for advised aliases (bug#64797)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=024bd1f09099ae186442001a75e578638070e296;p=emacs.git

Fix function help for advised aliases (bug#64797)

* lisp/help-fns.el (help-fns--analyze-function):
For aliases, use the base function name if at the end of the chain.
This fixes a regression introduced in d30fde6b0cc.

Reported by Michael Heerdegen.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index b9388b45397..3dd5c790157 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -1003,7 +1003,8 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
                                               (symbol-name function)))))))
 	 (real-def (cond
                     ((and aliased (not (subrp def)))
-                     (car (function-alias-p real-function)))
+                     (or (car (function-alias-p real-function))
+                         real-function))
 		    ((subrp def) (intern (subr-name def)))
                     (t def))))