From 96d52f894441c06d7fdc10617e707f410ad66cc3 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Thu, 27 Jul 2023 16:13:54 +0200 Subject: [PATCH] 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)))) -- 2.39.2