diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-11-17 03:43:54 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-11-17 03:43:54 +0000 |
| commit | 43ab13de0b74f3d9f27797d8cad877b0ab478499 (patch) | |
| tree | f09c59dcd89cc7c361ffa41060dfb9150612a7ae /lisp/emacs-lisp/authors.el | |
| parent | 1453abd0cc4897e053d9c5329ea99c9e8e78c68f (diff) | |
| download | emacs-43ab13de0b74f3d9f27797d8cad877b0ab478499.tar.gz | |
(authors-process-lines): Remove.
(authors): Use process-lines rather than authors-process-lines.
Diffstat (limited to 'lisp/emacs-lisp/authors.el')
| -rw-r--r-- | lisp/emacs-lisp/authors.el | 22 |
1 files changed, 2 insertions, 20 deletions
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index 50d2f41f7ae..486a02d2c6b 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el @@ -418,24 +418,6 @@ author and what he did in hash table TABLE. See the description of (nconc entry (list (cons action 1)))))))) -(defun authors-process-lines (program &rest args) - "Execute PROGRAM with ARGS, returning its output as a list of lines. -Signal an error if the program returns with a non-zero exit status." - (with-temp-buffer - (let ((status (apply 'call-process program nil (current-buffer) nil args))) - (unless (eq status 0) - (error "%s exited with status %s" program status)) - (goto-char (point-min)) - (let (lines) - (while (not (eobp)) - (setq lines (cons (buffer-substring-no-properties - (line-beginning-position) - (line-end-position)) - lines)) - (forward-line 1)) - (nreverse lines))))) - - (defun authors-canonical-author-name (author) "Return a canonicalized form of AUTHOR, an author name. If AUTHOR has an alias, use that. Remove email addresses. Capitalize @@ -605,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 (authors-process-lines "find" root "-name" "ChangeLog*")) + (let ((logs (process-lines "find" root "-name" "ChangeLog*")) (table (make-hash-table :test 'equal)) (buffer-name "*Authors*") authors-checked-files-alist @@ -617,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 (authors-process-lines "find" root "-name" "*.el"))) + (let ((els (process-lines "find" root "-name" "*.el"))) (dolist (file els) (message "Scanning %s..." file) (authors-scan-el file table))) |