branch: externals/compat
commit 91ac16090fbc845a3e1e8f1d8ea4155e91673742
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>
Add a realname for func-arity
---
compat-26.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/compat-26.el b/compat-26.el
index 02da36a5d2..136fcb466d 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -40,13 +40,14 @@ FUNC must be a function of some kind.
The returned value is a cons cell (MIN . MAX). MIN is the minimum number
of args. MAX is the maximum number, or the symbol ‘many’, for a
function with ‘&rest’ args, or ‘unevalled’ for a special form."
+ :realname compat--func-arity
(cond
((or (null func) (and (symbolp func) (not (fboundp func))))
(signal 'void-function func))
((and (symbolp func) (not (null func)))
- (compat-func-arity (symbol-function func)))
+ (compat--func-arity (symbol-function func)))
((eq (car-safe func) 'macro)
- (compat-func-arity (cdr func)))
+ (compat--func-arity (cdr func)))
((subrp func)
(subr-arity func))
((memq (car-safe func) '(closure lambda))
@@ -101,7 +102,7 @@ function with ‘&rest’ args, or ‘unevalled’ for a special
form."
(cons mandatory (if arglist 'many nonrest))))
((autoloadp func)
(autoload-do-load func)
- (compat-func-arity func))
+ (compat--func-arity func))
((signal 'invalid-function func))))
;;;; Defined in fns.c
