From 3d2cd8b779383e173560a298dd22517aa6d4541b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 14 May 2022 19:08:55 +0300 Subject: [PATCH] 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) --- lisp/emacs-lisp/check-declare.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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)))) -- 2.39.2