[nongnu] elpa/package-lint ba088fc732 1/3: Handle compat-function, as for compat and compat-call

[ELPA Syncer]

branch: elpa/package-lint
commit ba088fc732fda94d33cdaf3941d7567bb98eb819
Author: Steve Purcell <st...@sanityinc.com>
Commit: Steve Purcell <st...@sanityinc.com>

    Handle compat-function, as for compat and compat-call
    
    See #298
---
 package-lint-test.el | 7 +++++--
 tools/compat-dump    | 1 +
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/package-lint-test.el b/package-lint-test.el
index 8bbb557b28..1453ddc4b2 100644
--- a/package-lint-test.el
+++ b/package-lint-test.el
@@ -490,13 +490,16 @@ Alternatively, depend on (emacs \"24.3\") or greater, in 
which cl-lib is bundled
      ";; Package-Requires: ((compat \"29\"))
 \(with-suppressed-warnings (foo))"))))
 
-(ert-deftest package-lint-test-accepts-compat-call ()
+(ert-deftest package-lint-test-accepts-compat-call-etc ()
   (should
    (equal
     '()
     (package-lint-test--run
      ";; Package-Requires: ((compat \"29\"))
-\(compat-call 'foo)"))))
+\(compat-call 'foo)
+\(compat-function 'foo)
+\(compat 'foo)
+"))))
 
 (ert-deftest package-lint-test-accepts-compat-require ()
   (should
diff --git a/tools/compat-dump b/tools/compat-dump
index c301bcb55c..e4d31ebc18 100755
--- a/tools/compat-dump
+++ b/tools/compat-dump
@@ -24,6 +24,7 @@
           ((or "defun" "defmacro" "defalias") (push (match-string 2) 
functions))))))
   (push "compat" functions)
   (push "compat-call" functions)
+  (push "compat-function" functions)
   (with-temp-buffer
     (insert (prin1-to-string (cons (mapcar #'intern (sort symbols #'string<))
                                    (mapcar #'intern (sort functions 
#'string<)))))