Make function-alias-p use a better error symbol

* lisp/subr.el (function-alias-p): Use the same error symbol as
`indirect-function'.
This commit is contained in:
Lars Ingebrigtsen 2022-01-14 11:51:24 +01:00
parent f729c333c7
commit dd3715b0cb

View file

@ -6555,7 +6555,7 @@ signalled. If NOERROR, the non-loop parts of the chain is returned."
(eq func orig-func))
(if noerror
(throw 'loop chain)
(error "Alias loop for `%s'" orig-func)))
(signal 'cyclic-function-indirection (list orig-func))))
(push func chain))
chain))))