diff options
| author | Paul Eggert | 2016-05-13 08:37:56 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-05-13 08:38:17 -0700 |
| commit | faa8f38502b1c3b09167ab52b07842f44b833dde (patch) | |
| tree | 975586f6e6c9795b04c9cd0ed20ab14e11e6ac8f | |
| parent | f791efc057429c6370f02ab34e715ea2872f6cfa (diff) | |
| download | emacs-faa8f38502b1c3b09167ab52b07842f44b833dde.tar.gz emacs-faa8f38502b1c3b09167ab52b07842f44b833dde.zip | |
Tweak check-declare-directory performance
* lisp/emacs-lisp/check-declare.el (check-declare-directory):
Use ‘find ... -exec ... +’ for speed.
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el index b6fa0546088..bc7b5aed57a 100644 --- a/lisp/emacs-lisp/check-declare.el +++ b/lisp/emacs-lisp/check-declare.el | |||
| @@ -342,7 +342,7 @@ Returns non-nil if any false statements are found." | |||
| 342 | (setq files (process-lines find-program root | 342 | (setq files (process-lines find-program root |
| 343 | "-name" "*.el" | 343 | "-name" "*.el" |
| 344 | "-exec" grep-program | 344 | "-exec" grep-program |
| 345 | "-l" "^[ \t]*(declare-function" "{}" ";")) | 345 | "-l" "^[ \t]*(declare-function" "{}" "+")) |
| 346 | (message "%s%d found" m2 (length files)) | 346 | (message "%s%d found" m2 (length files)) |
| 347 | (when files | 347 | (when files |
| 348 | (setq errlist (apply 'check-declare-files files)) | 348 | (setq errlist (apply 'check-declare-files files)) |