[elpa] externals/compat f8f4a9f 52/99: Use right function in some compat-maxargs-/= invocations

[ELPA Syncer]

branch: externals/compat
commit f8f4a9f66da586a5b58cc069f3776c91535e7aa7
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Use right function in some compat-maxargs-/= invocations
---
 compat-24.4.el | 2 +-
 compat-26.1.el | 4 ++--
 compat-28.1.el | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/compat-24.4.el b/compat-24.4.el
index abe76f4..dcc61d2 100644
--- a/compat-24.4.el
+++ b/compat-24.4.el
@@ -119,7 +119,7 @@ attention to case differences."
 
 (compat-advise split-string (string &optional separators omit-nulls trim)
   "Handle optional argument TRIM."
-  :cond (compat-maxargs-/= #'assoc 4)
+  :cond (compat-maxargs-/= #'split-string 4)
   (let* ((token (funcall oldfun string separators omit-nulls))
          (trimmed (if trim
                       (mapcar
diff --git a/compat-26.1.el b/compat-26.1.el
index 2056537..99adce64 100644
--- a/compat-26.1.el
+++ b/compat-26.1.el
@@ -66,7 +66,7 @@ If the buffer is narrowed, the return value by default counts 
the lines
 from the beginning of the accessible portion of the buffer.  But if the
 second optional argument ABSOLUTE is non-nil, the value counts the lines
 from the absolute start of the buffer, disregarding the narrowing."
-  :cond (compat-maxargs-/= #'assoc 2)
+  :cond (compat-maxargs-/= #'line-number-at-pos 2)
   (if absolute
       (save-restriction
         (widen)
@@ -80,7 +80,7 @@ from the absolute start of the buffer, disregarding the 
narrowing."
   :min-version "25.1"                  ;first defined in 25.1
   :max-version "25.3"                  ;last version without testfn
   :realname compat--alist-get-handle-testfn
-  :cond (compat-maxargs-/= #'assoc 5)
+  :cond (compat-maxargs-/= #'alist-get 5)
   (if testfn
       (catch 'found
         (dolist (ent alist)
diff --git a/compat-28.1.el b/compat-28.1.el
index e2c6935..b5c32a3 100644
--- a/compat-28.1.el
+++ b/compat-28.1.el
@@ -144,7 +144,7 @@ consider, and are interpreted as in `substring'."
 
 If COUNT is non-nil and a natural number, the function will
  return COUNT number of file names (if so many are present)."
-  :cond (compat-maxargs-/= #'assoc 5)
+  :cond (compat-maxargs-/= #'directory-files 5)
   (let ((files (funcall oldfun directory full match nosort)))
     (when (natnump count)
       (setf (nthcdr count files) nil))
@@ -404,7 +404,7 @@ is included in the return value."
 
 If ALL-FRAMES is non-nil, count the windows in all frames instead
 just the selected frame."
-  :cond (compat-maxargs-/= #'assoc 3)
+  :cond (compat-maxargs-/= #'count-windows 3)
   (if all-frames
       (let ((sum 0))
         (dolist (frame (frame-list))