Index: emacs/lisp/emacs-lisp/authors.el
diff -c emacs/lisp/emacs-lisp/authors.el:1.21
emacs/lisp/emacs-lisp/authors.el:1.22
*** emacs/lisp/emacs-lisp/authors.el:1.21 Fri Apr 8 11:54:57 2005
--- emacs/lisp/emacs-lisp/authors.el Tue May 17 15:04:07 2005
***************
*** 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-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
