emacs-29 96d52f89444 6/7: Fix function help for advised aliases (bug#64797)

[Eli Zaretskii]

branch: emacs-29
commit 96d52f894441c06d7fdc10617e707f410ad66cc3
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    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.
    
    (cherry picked from commit 024bd1f09099ae186442001a75e578638070e296)
---
 lisp/help-fns.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index be13d40cfa3..eb50f3b26ca 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -995,7 +995,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 t)))
+                     (or (car (function-alias-p real-function))
+                         real-function))
                    ((subrp def) (intern (subr-name def)))
                     (t def))))