diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-05-14 19:08:55 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-05-14 19:08:55 +0300 |
| commit | 3d2cd8b779383e173560a298dd22517aa6d4541b (patch) | |
| tree | 620be16bf7f6a4194579377a04718b97e33a9cc1 /lisp/emacs-lisp | |
| parent | aa98a7823835366a0f06a2103ac183d5f7e59054 (diff) | |
| download | emacs-3d2cd8b779383e173560a298dd22517aa6d4541b.tar.gz emacs-3d2cd8b779383e173560a298dd22517aa6d4541b.tar.bz2 emacs-3d2cd8b779383e173560a298dd22517aa6d4541b.zip | |
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)
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 6 |
1 files changed, 1 insertions, 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)))) |