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"))) |