Mercurial > emacs
comparison lisp/emacs-lisp/authors.el @ 32832:1ce7dce8710b
(authors-aliases): Add some more aliases.
(authors): Set file coding system to iso-2022-7bit. Add
file-local variables to output buffer.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 24 Oct 2000 20:41:46 +0000 |
parents | efaa4e4c5fef |
children | c5fc43371c70 |
comparison
equal
deleted
inserted
replaced
32831:f47362717f59 | 32832:1ce7dce8710b |
---|---|
77 ("Michael I Bushnell" . "Michael I. Bushnell") | 77 ("Michael I Bushnell" . "Michael I. Bushnell") |
78 ("Michael I. Bushnell, P/Bsg" . "Michael I. Bushnell") | 78 ("Michael I. Bushnell, P/Bsg" . "Michael I. Bushnell") |
79 ("Reingold Edward M" . "Edward M. Reingold") | 79 ("Reingold Edward M" . "Edward M. Reingold") |
80 ("Roland B Roberts" . "Roland B. Roberts") | 80 ("Roland B Roberts" . "Roland B. Roberts") |
81 ("Sam Shteingold" . "Sam Steingold") | 81 ("Sam Shteingold" . "Sam Steingold") |
82 ("W{\L}Odek Bzyl" . "Wlodzimierz Bzyl") | |
83 ("Kenneth Manheimer" . "Ken Manheimer") | |
82 ("Kenichi HANDA" . "Kenichi Handa")) | 84 ("Kenichi HANDA" . "Kenichi Handa")) |
83 "Alist of author aliases. | 85 "Alist of author aliases. |
84 | 86 |
85 Each entry is of the form (REGEXP . ALIAS). If an author's name | 87 Each entry is of the form (REGEXP . ALIAS). If an author's name |
86 matches REGEXP, use ALIAS instead. The special alias \"ignore\" means | 88 matches REGEXP, use ALIAS instead. The special alias \"ignore\" means |
282 (dolist (file els) | 284 (dolist (file els) |
283 (message "Scanning %s..." file) | 285 (message "Scanning %s..." file) |
284 (authors-scan-el file table))) | 286 (authors-scan-el file table))) |
285 (set-buffer (get-buffer-create buffer-name)) | 287 (set-buffer (get-buffer-create buffer-name)) |
286 (erase-buffer) | 288 (erase-buffer) |
289 (set-buffer-file-coding-system 'iso-2022-7bit) | |
287 (maphash #'authors-print table) | 290 (maphash #'authors-print table) |
288 (sort-lines nil (point-min) (point-max)) | 291 (sort-lines nil (point-min) (point-max)) |
292 (insert "\nLocal" " Variables:\ncoding: iso-2022-7bit\nEnd:\n") | |
289 (pop-to-buffer buffer-name))) | 293 (pop-to-buffer buffer-name))) |
290 | 294 |
291 | 295 |
292 ;; authors.el ends here | 296 ;; authors.el ends here |