mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

; Fix backport of help-fns--analyze-function bug fix

Browse Source 
* lisp/help-fns.el (help-fns--analyze-function):
Add back the NOERROR argument to function-alias-p, needed because
Emacs 29 doesn't prevent the creation of circular function aliases.
This fixes a failure in help-fns-tests.
This commit is contained in:
Mattias Engdegård 2023-07-31 16:14:07 +02:00
parent 525d05c1b8
commit 3560dfdb86
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/help-fns.el
View File

@ -995,7 +995,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
(symbol-name function)))))))
(real-def (cond
((and aliased (not (subrp def)))
(or (car (function-alias-p real-function))
(or (car (function-alias-p real-function t))
real-function))
((subrp def) (intern (subr-name def)))
(t def))))