Mercurial > emacs
comparison lisp/emacs-lisp/authors.el @ 84990:b9d2d3d3b819
lisp/emacs-lisp/authors.el (authors): make non-specific to Emacs.
| author | David Kastrup <dak@gnu.org> |
|---|---|
| date | Sun, 30 Sep 2007 22:51:44 +0000 |
| parents | c9d3d80460e9 |
| children | 3cfb77f996c5 |
comparison
equal
deleted
inserted
replaced
| 84989:d7862063d437 | 84990:b9d2d3d3b819 |
|---|---|
| 608 (let ((logs (authors-process-lines "find" root "-name" "ChangeLog*")) | 608 (let ((logs (authors-process-lines "find" root "-name" "ChangeLog*")) |
| 609 (table (make-hash-table :test 'equal)) | 609 (table (make-hash-table :test 'equal)) |
| 610 (buffer-name "*Authors*") | 610 (buffer-name "*Authors*") |
| 611 authors-checked-files-alist | 611 authors-checked-files-alist |
| 612 authors-invalid-file-names) | 612 authors-invalid-file-names) |
| 613 (authors-add-fixed-entries table) | 613 ; (authors-add-fixed-entries table) |
| 614 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) | 614 ; (unless (file-exists-p (expand-file-name "src/emacs.c" root)) |
| 615 (error "Not the root directory of Emacs: %s" root)) | 615 ; (error "Not the root directory of Emacs: %s" root)) |
| 616 (dolist (log logs) | 616 (dolist (log logs) |
| 617 (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) | 617 (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) |
| 618 (message "Scanning %s..." log) | 618 (message "Scanning %s..." log) |
| 619 (authors-scan-change-log log table))) | 619 (authors-scan-change-log log table))) |
| 620 (let ((els (authors-process-lines "find" root "-name" "*.el"))) | 620 (let ((els (authors-process-lines "find" root "-name" "*.el"))) |