aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2008-01-30 21:43:55 +0000
committerJuanma Barranquero2008-01-30 21:43:55 +0000
commitc7efbb12d959fc9af98a6e255aaf20cfce8884a8 (patch)
tree746ef13b5f14a9e0e2d7d880163b6e2386bcf50e
parent8299c8a5ce1394b8d173eb453710600a3529fc1d (diff)
downloademacs-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.el4
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
587buffer *Authors Errors* containing references to unknown files." 587buffer *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)))