[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/authors.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/authors.el |
Date: |
Fri, 04 Apr 2003 01:21:56 -0500 |
Index: emacs/lisp/emacs-lisp/authors.el
diff -c emacs/lisp/emacs-lisp/authors.el:1.16
emacs/lisp/emacs-lisp/authors.el:1.17
*** emacs/lisp/emacs-lisp/authors.el:1.16 Tue Jan 28 19:13:11 2003
--- emacs/lisp/emacs-lisp/authors.el Tue Feb 4 07:53:33 2003
***************
*** 92,98 ****
("Per Abrahamsen" "Per Abhiddenware")
("Peter S. Galbraith" "Peter S Galbraith")
("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman"
! "rms" "address@hidden")
("Robert J. Chassell" "Bob Chassell")
("Roland B. Roberts" "Roland B Roberts" "Roland Roberts")
("Rui-Tao Dong" "Rui-Tao Dong ~{6-Hpln~}")
--- 92,98 ----
("Per Abrahamsen" "Per Abhiddenware")
("Peter S. Galbraith" "Peter S Galbraith")
("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman"
! "rms" "address@hidden")
("Robert J. Chassell" "Bob Chassell")
("Roland B. Roberts" "Roland B Roberts" "Roland Roberts")
("Rui-Tao Dong" "Rui-Tao Dong ~{6-Hpln~}")
***************
*** 110,116 ****
"Alist of author aliases.
Each entry is of the form (REALNAME REGEXP...). If an author's name
! matches one of the REGEXPs, use REALNAME instead.
If REALNAME is nil, ignore that author.")
--- 110,116 ----
"Alist of author aliases.
Each entry is of the form (REALNAME REGEXP...). If an author's name
! matches one of the REGEXPs, use REALNAME instead.
If REALNAME is nil, ignore that author.")
***************
*** 321,327 ****
(setq authors-checked-files-alist
(cons (cons file valid) authors-checked-files-alist))
(unless valid
! (setq authors-invalid-file-names
(cons (format "%s:%d: unrecognized `%s' for %s"
log-file
(1+ (count-lines (point-min) pos))
--- 321,327 ----
(setq authors-checked-files-alist
(cons (cons file valid) authors-checked-files-alist))
(unless valid
! (setq authors-invalid-file-names
(cons (format "%s:%d: unrecognized `%s' for %s"
log-file
(1+ (count-lines (point-min) pos))
***************
*** 510,516 ****
CHANGES is an alist of entries (FILE (ACTION . COUNT) ...), as produced by
`authors-scan-change-log'.
The element added to `authors-author-list' is (AUTHOR WROTE CHANGED), where
! WROTE and CHANGED are lists of the files written and changed by AUTHOR."
(when author
(let ((nchanged 0)
wrote-list
--- 510,516 ----
CHANGES is an alist of entries (FILE (ACTION . COUNT) ...), as produced by
`authors-scan-change-log'.
The element added to `authors-author-list' is (AUTHOR WROTE CHANGED), where
! WROTE and CHANGED are lists of the files written and changed by AUTHOR."
(when author
(let ((nchanged 0)
wrote-list
***************
*** 549,555 ****
(defun authors (root)
"Extract author information from change logs and Lisp source files.
ROOT is the root directory under which to find the files. If called
! interactively, ROOT is read from the minibuffer.
Result is a buffer *Authors* containing authorship information, and a
buffer *Authors Errors* containing references to unknown files."
(interactive "DEmacs source directory: ")
--- 549,555 ----
(defun authors (root)
"Extract author information from change logs and Lisp source files.
ROOT is the root directory under which to find the files. If called
! interactively, ROOT is read from the minibuffer.
Result is a buffer *Authors* containing authorship information, and a
buffer *Authors Errors* containing references to unknown files."
(interactive "DEmacs source directory: ")
***************
*** 575,588 ****
(set-buffer (get-buffer-create buffer-name))
(erase-buffer)
(set-buffer-file-coding-system authors-coding-system)
! (insert
"Many people have contributed code included in the Free Software
Foundation's distribution of GNU Emacs. To show our appreciation for
their public spirit, we list here in alphabetical order a condensed
list of their contributions.\n")
(let (authors-author-list a)
(maphash #'authors-add-to-author-list table)
! (setq authors-author-list
(sort authors-author-list
(lambda (a b) (string-lessp (car a) (car b)))))
(dolist (a authors-author-list)
--- 575,588 ----
(set-buffer (get-buffer-create buffer-name))
(erase-buffer)
(set-buffer-file-coding-system authors-coding-system)
! (insert
"Many people have contributed code included in the Free Software
Foundation's distribution of GNU Emacs. To show our appreciation for
their public spirit, we list here in alphabetical order a condensed
list of their contributions.\n")
(let (authors-author-list a)
(maphash #'authors-add-to-author-list table)
! (setq authors-author-list
(sort authors-author-list
(lambda (a b) (string-lessp (car a) (car b)))))
(dolist (a authors-author-list)
***************
*** 607,613 ****
(insert "\n "))
(insert " " file))
(insert "\n")))))
! (insert "\nLocal" " Variables:\ncoding: "
(symbol-name authors-coding-system) "\nEnd:\n")
(message "Generating buffer %s... done" buffer-name)
(unless noninteractive
--- 607,613 ----
(insert "\n "))
(insert " " file))
(insert "\n")))))
! (insert "\nLocal" " Variables:\ncoding: "
(symbol-name authors-coding-system) "\nEnd:\n")
(message "Generating buffer %s... done" buffer-name)
(unless noninteractive
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/authors.el,
Miles Bader <=