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