Richard Stallman <[EMAIL PROTECTED]> writes:
> Does anybody know why authors in lisp/emacs-lisp/authors.el doesn't
> parse ChangeLogs in lispref/? I'd like to change that.
>
> Perhaps it has not been updated since we put lispref/ into the Emacs
> distribution.
It explicitly excludes lispref/:
,----
| (dolist (log logs)
| (when (and (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
| (not (string-match "/lispref/" log)))
| (message "Scanning %s..." log)
| (authors-scan-change-log log table)))
`----
I guess that lispref/ was put in Emacs' CVS before the 21.1 release so
that authors needed to exclude it as Emacs 21 wasn't distributed with
the lisp manual.
> Maybe there are other dirs it doesn't cover, too. Could you check?
lispref/ is the only excluded dir. Shall I commit the patch below?
Lute.
Index: lisp/emacs-lisp/authors.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/authors.el,v
retrieving revision 1.21
diff -c -r1.21 authors.el
*** lisp/emacs-lisp/authors.el 8 Apr 2005 11:54:57 -0000 1.21
--- lisp/emacs-lisp/authors.el 12 May 2005 14:14:48 -0000
***************
*** 1,6 ****
;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding:
iso-2022-7bit;-*-
! ;; Copyright (C) 2000, 2003 Free Software Foundation, Inc.
;; Author: Gerd Moellmann <[EMAIL PROTECTED]>
;; Maintainer: Kim F. Storm <[EMAIL PROTECTED]>
--- 1,6 ----
;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding:
iso-2022-7bit;-*-
! ;; Copyright (C) 2000, 2003, 2005 Free Software Foundation, Inc.
;; Author: Gerd Moellmann <[EMAIL PROTECTED]>
;; Maintainer: Kim F. Storm <[EMAIL PROTECTED]>
***************
*** 597,604 ****
(unless (file-exists-p (expand-file-name "src/emacs.c" root))
(error "Not the root directory of Emacs: %s" root))
(dolist (log logs)
! (when (and (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
! (not (string-match "/lispref/" log)))
(message "Scanning %s..." log)
(authors-scan-change-log log table)))
(let ((els (authors-process-lines "find" root "-name" "*.el")))
--- 597,603 ----
(unless (file-exists-p (expand-file-name "src/emacs.c" root))
(error "Not the root directory of Emacs: %s" root))
(dolist (log logs)
! (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
(message "Scanning %s..." log)
(authors-scan-change-log log table)))
(let ((els (authors-process-lines "find" root "-name" "*.el")))
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
