andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make 'check-declare-directory' more portable

Browse source 
* lisp/emacs-lisp/check-declare.el (check-declare-directory): Use
'directory-files-recursively' instead of running Find and Grep in
a subprocess.  (Bug#55386)
This commit is contained in:
Eli Zaretskii 2022-05-14 19:08:55 +03:00
parent aa98a78238
commit 3d2cd8b779
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/check-declare.el
View file

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