[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3d2cd8b779: Make 'check-declare-directory' more portable
From: |
Eli Zaretskii |
Subject: |
master 3d2cd8b779: Make 'check-declare-directory' more portable |
Date: |
Sat, 14 May 2022 12:09:51 -0400 (EDT) |
branch: master
commit 3d2cd8b779383e173560a298dd22517aa6d4541b
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
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 b3c965166b..83187acf71 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3d2cd8b779: Make 'check-declare-directory' more portable,
Eli Zaretskii <=