diff options
| author | Juanma Barranquero | 2008-01-30 21:43:55 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-01-30 21:43:55 +0000 |
| commit | c7efbb12d959fc9af98a6e255aaf20cfce8884a8 (patch) | |
| tree | 746ef13b5f14a9e0e2d7d880163b6e2386bcf50e | |
| parent | 8299c8a5ce1394b8d173eb453710600a3529fc1d (diff) | |
| download | emacs-c7efbb12d959fc9af98a6e255aaf20cfce8884a8.tar.gz emacs-c7efbb12d959fc9af98a6e255aaf20cfce8884a8.zip | |
(authors): Use `find-program' and `grep-program'
instead of hardcoded program names.
| -rw-r--r-- | lisp/emacs-lisp/authors.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index 90d3ac869e9..d27e08f7334 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el | |||
| @@ -587,7 +587,7 @@ Result is a buffer *Authors* containing authorship information, and a | |||
| 587 | buffer *Authors Errors* containing references to unknown files." | 587 | buffer *Authors Errors* containing references to unknown files." |
| 588 | (interactive "DEmacs source directory: ") | 588 | (interactive "DEmacs source directory: ") |
| 589 | (setq root (expand-file-name root)) | 589 | (setq root (expand-file-name root)) |
| 590 | (let ((logs (process-lines "find" root "-name" "ChangeLog*")) | 590 | (let ((logs (process-lines find-program root "-name" "ChangeLog*")) |
| 591 | (table (make-hash-table :test 'equal)) | 591 | (table (make-hash-table :test 'equal)) |
| 592 | (buffer-name "*Authors*") | 592 | (buffer-name "*Authors*") |
| 593 | authors-checked-files-alist | 593 | authors-checked-files-alist |
| @@ -599,7 +599,7 @@ buffer *Authors Errors* containing references to unknown files." | |||
| 599 | (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) | 599 | (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) |
| 600 | (message "Scanning %s..." log) | 600 | (message "Scanning %s..." log) |
| 601 | (authors-scan-change-log log table))) | 601 | (authors-scan-change-log log table))) |
| 602 | (let ((els (process-lines "find" root "-name" "*.el"))) | 602 | (let ((els (process-lines find-program root "-name" "*.el"))) |
| 603 | (dolist (file els) | 603 | (dolist (file els) |
| 604 | (message "Scanning %s..." file) | 604 | (message "Scanning %s..." file) |
| 605 | (authors-scan-el file table))) | 605 | (authors-scan-el file table))) |