diff options
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el index 9f81cebaca8..1b3d4dc2f6d 100644 --- a/lisp/emacs-lisp/check-declare.el +++ b/lisp/emacs-lisp/check-declare.el | |||
| @@ -300,9 +300,10 @@ described in the documentation of `declare-function'." | |||
| 300 | errlist files) | 300 | errlist files) |
| 301 | (message "%s" m) | 301 | (message "%s" m) |
| 302 | (message "%s" m2) | 302 | (message "%s" m2) |
| 303 | (setq files (process-lines "find" root "-name" "*.el" | 303 | (setq files (process-lines find-program root |
| 304 | "-exec" "grep" "-l" | 304 | "-name" "*.el" |
| 305 | "^[ ]*(declare-function" "{}" ";")) | 305 | "-exec" grep-program |
| 306 | "-l" "^[ \t]*(declare-function" "{}" ";")) | ||
| 306 | (message "%s%d found" m2 (length files)) | 307 | (message "%s%d found" m2 (length files)) |
| 307 | (when files | 308 | (when files |
| 308 | (setq errlist (apply 'check-declare-files files)) | 309 | (setq errlist (apply 'check-declare-files files)) |