branch: externals/compat
commit 2d50e5ce5ef422069e5bed6fb5eaea96b45e7a35
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Implement func-arity
---
compat-26.1.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/compat-26.1.el b/compat-26.1.el
index 9131710..90e07bf 100644
--- a/compat-26.1.el
+++ b/compat-26.1.el
@@ -28,8 +28,19 @@
;;; Code:
(eval-when-compile (require 'compat-macs))
+(declare-function compat-func-arity "compat" (func))
(declare-function compat-maxargs-/= "compat" (func n))
+;;;; Defined in eval.c
+
+(compat-defun func-arity (func)
+ "Return minimum and maximum number of args allowed for FUNC.
+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."
+ (compat-func-arity func))
+
;;;; Defined in fns.c
(compat-advise assoc (key alist &optional testfn)
