mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(authors-aliases): Remove some "ignore" entries that are no longer needed.

Browse Source 
(authors-scan-change-log): Doc fix.
(authors-scan-el): Restore let*, foolishly removed 2009-01-11.
This commit is contained in:
Glenn Morris 2009-01-21 03:54:29 +00:00
parent 994e96474c
commit 2603d79b46
2 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2009-01-21 Glenn Morris <rgm@gnu.org>
* emacs-lisp/authors.el (authors-aliases): Remove some "ignore" entries
that are no longer needed.
(authors-scan-change-log): Doc fix.
(authors-scan-el): Restore let*, foolishly removed 2009-01-11.
2009-01-20 Agustín Martín <agustin.martin@hispalinux.es>
* textmodes/ispell.el (ispell-find-aspell-dictionaries): Use

25
lisp/emacs-lisp/authors.el
View File

@ -76,11 +76,15 @@ files.")
("Gerd Möllmann" "Gerd Moellmann")
("Hallvard B. Furuseth" "Hallvard B Furuseth" "Hallvard Furuseth")
("Hrvoje Nikšić" "Hrvoje Niksic")
(nil "(afs@hplb.hpl.hp.com)")
;; src/ChangeLog.4, 1994-01-11, since fixed.
;;; (nil "(afs@hplb.hpl.hp.com)")
;; lisp/gnus/ChangeLog.1, 1998-01-15.
;; http://quimby.gnus.org/cgi-bin/cvsweb.cgi/gnus/lisp/gnus-art.el?rev=4.13
(nil "<Use-Author-Address-Header@\\[127.1\\]>")
(nil "Code Extracted")
(nil "\\`FSF")
(nil "ISO-2022-JP")
(nil "Code Extracted") ; lisp/newcomment.el's "Author:" header
(nil "\\`FSF") ; FIXME what is this for - no effect?
;; lisp/gnus/ChangeLog.1, 1997-10-12, since fixed.
;;; (nil "ISO-2022-JP")
("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn")
("Jan Djärv" "Jan D." "Jan Djarv")
("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams")
@ -691,12 +695,13 @@ under the author's canonical name.
Keys of TABLE are author names. Values are alists of entries (FILE
\(ACTION . COUNT) ...). FILE is one file the author worked on. The
rest of the entry is a list of keyword symbols describing what he did
with the file and the number of each action.
with the file and the number of each action:
:wrote means the author wrote the file
:cowrote means he wrote the file in collaboration with others
:changed means he changed the file COUNT times."
(let* ((enable-local-variables :safe)
(let* ((enable-local-variables :safe) ; for find-file, hence let*
(enable-local-eval nil)
(existing-buffer (get-file-buffer log-file))
(buffer (find-file-noselect log-file))
@ -748,10 +753,10 @@ Suggested\\|Trivial\\|Version\\|Originally\\|From:\\|Patch[ \t]+[Bb]y\\)")))
(defun authors-scan-el (file table)
"Scan Lisp file FILE for author information.
TABLE is a hash table to add author information to."
(let ((existing-buffer (get-file-buffer file))
(enable-local-variables :safe)
(enable-local-eval nil)
(buffer (find-file-noselect file)))
(let* ((existing-buffer (get-file-buffer file))
(enable-local-variables :safe) ; for find-file, hence let*
(enable-local-eval nil)
(buffer (find-file-noselect file)))
(setq file (file-name-nondirectory file))
(save-excursion
(set-buffer buffer)