diff options
| author | Juanma Barranquero | 2008-01-30 21:44:36 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-01-30 21:44:36 +0000 |
| commit | 2f18aa21f57973dbd6bb21cc3fda962290e72a5e (patch) | |
| tree | d6615a15cf724e0e7c0f3a0a884fa6622a0c7fb6 | |
| parent | c7efbb12d959fc9af98a6e255aaf20cfce8884a8 (diff) | |
| download | emacs-2f18aa21f57973dbd6bb21cc3fda962290e72a5e.tar.gz emacs-2f18aa21f57973dbd6bb21cc3fda962290e72a5e.zip | |
(check-declare-directory): Use `find-program' and
`grep-program' instead of hardcoded program names.
| -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)) |