From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 14 May 2022 16:08:55 +0000 (+0300)
Subject: Make 'check-declare-directory' more portable
X-Git-Tag: emacs-29.0.90~1910^2~690
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d2cd8b779383e173560a298dd22517aa6d4541b;p=emacs.git

Make 'check-declare-directory' more portable

* lisp/emacs-lisp/check-declare.el (check-declare-directory): Use
'directory-files-recursively' instead of running Find and Grep in
a subprocess.  (Bug#55386)
---

diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el
index b3c965166b6..83187acf71e 100644
--- a/lisp/emacs-lisp/check-declare.el
+++ b/lisp/emacs-lisp/check-declare.el
@@ -319,11 +319,7 @@ Returns non-nil if any false statements are found."
   (setq root (directory-file-name (file-relative-name root)))
   (or (file-directory-p root)
       (error "Directory `%s' not found" root))
-  (let ((files (process-lines-ignore-status
-                find-program root
-                "-name" "*.el"
-                "-exec" grep-program
-                "-l" "^[ \t]*(declare-function" "{}" "+")))
+  (let ((files (directory-files-recursively root "\\.el\\'")))
     (when files
       (apply #'check-declare-files files))))