From b63019aea34f266f7bfbf244b23005993a5d7305 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Omar=20Antol=C3=ADn?= Date: Mon, 27 Apr 2020 13:35:02 -0500 Subject: Add missing (oops!) "forgiving funcall" function --- orderless.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/orderless.el b/orderless.el index ead96ea..82fbcd8 100644 --- a/orderless.el +++ b/orderless.el @@ -292,6 +292,10 @@ converted to a list of regexps according to the value of for string = (copy-sequence original) collect (orderless--highlight regexps string))) +(defun orderless--forgiving-funcall (fn &rest args) + "Call FN with as many ARGS as its arity allows." + (apply fn (cl-subseq args 0 (cdr (func-arity fn))))) + (defun orderless--component-regexps (pattern) "Build regexps to match PATTERN. Consults `orderless-style-dispatchers' and, if -- cgit v1.0