diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-07-27 16:13:54 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-07-30 10:27:14 +0300 |
| commit | 96d52f894441c06d7fdc10617e707f410ad66cc3 (patch) | |
| tree | f679a297d60bc0a02572f6d62a7995a4ef1d1a27 /lisp/help-fns.el | |
| parent | 71419a60c3710549742c2489b7fce7783ac0f65c (diff) | |
| download | emacs-96d52f894441c06d7fdc10617e707f410ad66cc3.tar.gz emacs-96d52f894441c06d7fdc10617e707f410ad66cc3.tar.bz2 emacs-96d52f894441c06d7fdc10617e707f410ad66cc3.zip | |
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)
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |