Mercurial > emacs
comparison lisp/emacs-lisp/authors.el @ 32005:01a7fea88dc1
(authors-print): Rephrase many-files string.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 29 Sep 2000 13:55:23 +0000 |
| parents | 9fcbb508e58c |
| children | 1bb0e9c9c64d |
comparison
equal
deleted
inserted
replaced
| 32004:653438b51742 | 32005:01a7fea88dc1 |
|---|---|
| 227 (file (car change))) | 227 (file (car change))) |
| 228 (if (memq :wrote actions) | 228 (if (memq :wrote actions) |
| 229 (insert author " (wrote) " file "\n") | 229 (insert author " (wrote) " file "\n") |
| 230 (setq nchanged (1+ nchanged))))) | 230 (setq nchanged (1+ nchanged))))) |
| 231 (if (> nchanged authors-many-files) | 231 (if (> nchanged authors-many-files) |
| 232 (insert author " (changed) [changes in more than " | 232 (insert author " (changed) [more than " |
| 233 (int-to-string authors-many-files) " files]\n") | 233 (int-to-string authors-many-files) " files]\n") |
| 234 (dolist (change changes) | 234 (dolist (change changes) |
| 235 (let ((actions (cdr change)) | 235 (let ((actions (cdr change)) |
| 236 (file (car change))) | 236 (file (car change))) |
| 237 (unless (memq :wrote actions) | 237 (unless (memq :wrote actions) |