[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 024bd1f0909 3/3: Fix function help for advised aliases (bug#64797
From: |
Mattias Engdegård |
Subject: |
master 024bd1f0909 3/3: Fix function help for advised aliases (bug#64797) |
Date: |
Thu, 27 Jul 2023 11:11:41 -0400 (EDT) |
branch: master
commit 024bd1f09099ae186442001a75e578638070e296
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.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.
---
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 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))))