From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 30 Jan 2008 21:43:55 +0000 (+0000)
Subject: (authors): Use `find-program' and `grep-program'
X-Git-Tag: emacs-pretest-23.0.90~8322
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7efbb12d959fc9af98a6e255aaf20cfce8884a8;p=emacs.git

(authors): Use `find-program' and `grep-program'
instead of hardcoded program names.
---

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
 buffer *Authors Errors* containing references to unknown files."
   (interactive "DEmacs source directory: ")
   (setq root (expand-file-name root))
-  (let ((logs (process-lines "find" root "-name" "ChangeLog*"))
+  (let ((logs (process-lines find-program root "-name" "ChangeLog*"))
 	(table (make-hash-table :test 'equal))
 	(buffer-name "*Authors*")
 	authors-checked-files-alist
@@ -599,7 +599,7 @@ buffer *Authors Errors* containing references to unknown files."
       (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
 	(message "Scanning %s..." log)
 	(authors-scan-change-log log table)))
-    (let ((els (process-lines "find" root "-name" "*.el")))
+    (let ((els (process-lines find-program root "-name" "*.el")))
       (dolist (file els)
 	(message "Scanning %s..." file)
 	(authors-scan-el file table)))