Mercurial > emacs
comparison lisp/emacs-lisp/authors.el @ 100870:373ba628faa9
(authors-aliases): Addition.
(authors): Allow to use it for other projects.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Sat, 03 Jan 2009 19:43:54 +0000 |
| parents | feefe0473234 |
| children | a9dc0e7c3f2b |
comparison
equal
deleted
inserted
replaced
| 100869:3d95444199e1 | 100870:373ba628faa9 |
|---|---|
| 111 ("Michaël Cadilhac" "Michael Cadilhac") | 111 ("Michaël Cadilhac" "Michael Cadilhac") |
| 112 ("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg") | 112 ("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg") |
| 113 ("Mikio Nakajima" "Nakajima Mikio") | 113 ("Mikio Nakajima" "Nakajima Mikio") |
| 114 ("Paul Eggert" "eggert") | 114 ("Paul Eggert" "eggert") |
| 115 ("Paul Reilly" "(pmr@legacy.pajato.com)") | 115 ("Paul Reilly" "(pmr@legacy.pajato.com)") |
| 116 ("Pavel Janík" "Pavel Janík Ml." "Pavel Janík" "Pavel@Janik.Cz") | 116 ("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik" "Pavel Janík" "Pavel@Janik.Cz") |
| 117 ("Per Abrahamsen" "Per Abhiddenware") | 117 ("Per Abrahamsen" "Per Abhiddenware") |
| 118 ("Peter S. Galbraith" "Peter Galbraith") | 118 ("Peter S. Galbraith" "Peter Galbraith") |
| 119 ("Peter Runestig" "Peter 'luna' Runestig") | 119 ("Peter Runestig" "Peter 'luna' Runestig") |
| 120 ("Peter S. Galbraith" "Peter S Galbraith") | 120 ("Peter S. Galbraith" "Peter S Galbraith") |
| 121 ("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman" | 121 ("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman" |
| 748 (buffer-name "*Authors*") | 748 (buffer-name "*Authors*") |
| 749 authors-checked-files-alist | 749 authors-checked-files-alist |
| 750 authors-invalid-file-names) | 750 authors-invalid-file-names) |
| 751 (authors-add-fixed-entries table) | 751 (authors-add-fixed-entries table) |
| 752 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) | 752 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) |
| 753 (error "Not the root directory of Emacs: %s" root)) | 753 (unless (y-or-n-p |
| 754 (format "Not the root directory of Emacs: %s, continue? " root)) | |
| 755 (error "Not the root directory."))) | |
| 754 (dolist (log logs) | 756 (dolist (log logs) |
| 755 (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) | 757 (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) |
| 756 (message "Scanning %s..." log) | 758 (message "Scanning %s..." log) |
| 757 (authors-scan-change-log log table))) | 759 (authors-scan-change-log log table))) |
| 758 (let ((els (process-lines find-program root "-name" "*.el"))) | 760 (let ((els (process-lines find-program root "-name" "*.el"))) |