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 ind30fde6b0c
. Reported by Michael Heerdegen. (cherry picked from commit024bd1f090
)
This commit is contained in:
parent
71419a60c3
commit
96d52f8944
1 changed files with 2 additions and 1 deletions
|
@ -995,7 +995,8 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
|
||||||
(symbol-name function)))))))
|
(symbol-name function)))))))
|
||||||
(real-def (cond
|
(real-def (cond
|
||||||
((and aliased (not (subrp def)))
|
((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)))
|
((subrp def) (intern (subr-name def)))
|
||||||
(t def))))
|
(t def))))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue