Re: authors excludes the lisp manual.

[Lute Kamstra]

Richard Stallman <address@hidden> 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 <address@hidden>
  ;; Maintainer: Kim F. Storm <address@hidden>
--- 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 <address@hidden>
  ;; Maintainer: Kim F. Storm <address@hidden>
***************
*** 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")))