Mercurial > emacs
comparison lisp/emacs-lisp/check-declare.el @ 88085:f4834ccd5bce
(check-declare-directory): Use `find-program' and
`grep-program' instead of hardcoded program names.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 30 Jan 2008 21:44:36 +0000 |
| parents | b9e8ab94c460 |
| children | e7a38a8c4a05 |
comparison
equal
deleted
inserted
replaced
| 88084:60aaa6c4ca3c | 88085:f4834ccd5bce |
|---|---|
| 298 (let ((m "Checking `declare-function' statements...") | 298 (let ((m "Checking `declare-function' statements...") |
| 299 (m2 "Finding files with declarations...") | 299 (m2 "Finding files with declarations...") |
| 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)) |
| 309 (message "%s%s" m (check-declare-errmsg errlist t)) | 310 (message "%s%s" m (check-declare-errmsg errlist t)) |
| 310 errlist))) | 311 errlist))) |