diff options
| author | Miles Bader <miles@gnu.org> | 2008-01-31 13:49:17 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2008-01-31 13:49:17 +0000 |
| commit | 6498c4b170e8a143f02913ec523e3b84ab11790c (patch) | |
| tree | 1182b5d4a6adeb1c917df4c26972374ecd9fd2d1 /lisp/emacs-lisp | |
| parent | 4efcc8d152908c623a964d591c71bcce54541263 (diff) | |
| parent | 94cc397c541f50af6b049af6c42806daa2be2709 (diff) | |
| download | emacs-6498c4b170e8a143f02913ec523e3b84ab11790c.tar.gz emacs-6498c4b170e8a143f02913ec523e3b84ab11790c.tar.bz2 emacs-6498c4b170e8a143f02913ec523e3b84ab11790c.zip | |
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-328
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/authors.el | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 7 |
2 files changed, 6 insertions, 5 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 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))) 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'." errlist files) (message "%s" m) (message "%s" m2) - (setq files (process-lines "find" root "-name" "*.el" - "-exec" "grep" "-l" - "^[ ]*(declare-function" "{}" ";")) + (setq files (process-lines find-program root + "-name" "*.el" + "-exec" grep-program + "-l" "^[ \t]*(declare-function" "{}" ";")) (message "%s%d found" m2 (length files)) (when files (setq errlist (apply 'check-declare-files files)) |