From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 14 Jan 2022 10:51:24 +0000 (+0100)
Subject: Make function-alias-p use a better error symbol
X-Git-Tag: emacs-29.0.90~3055
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd3715b0cb73515f516eccaace8eba13f2b328ab;p=emacs.git

Make function-alias-p use a better error symbol

* lisp/subr.el (function-alias-p): Use the same error symbol as
`indirect-function'.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index b0d2ab623b1..dd260dfe418 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -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))))