/[emacs]/emacs/lisp/emacs-lisp/authors.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/authors.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by kfstorm, Fri Apr 8 11:54:57 2005 UTC revision 1.22 by lute, Tue May 17 15:04:07 2005 UTC
# Line 1  Line 1 
1  ;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*-  ;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*-
2    
3  ;; Copyright (C) 2000, 2003 Free Software Foundation, Inc.  ;; Copyright (C) 2000, 2003, 2005 Free Software Foundation, Inc.
4    
5  ;; Author: Gerd Moellmann <gerd@gnu.org>  ;; Author: Gerd Moellmann <gerd@gnu.org>
6  ;; Maintainer: Kim F. Storm <storm@cua.dk>  ;; Maintainer: Kim F. Storm <storm@cua.dk>
# Line 597  buffer *Authors Errors* containing refer Line 597  buffer *Authors Errors* containing refer
597      (unless (file-exists-p (expand-file-name "src/emacs.c" root))      (unless (file-exists-p (expand-file-name "src/emacs.c" root))
598        (error "Not the root directory of Emacs: %s" root))        (error "Not the root directory of Emacs: %s" root))
599      (dolist (log logs)      (dolist (log logs)
600        (when (and (string-match "ChangeLog\\(.[0-9]+\\)?$" log)        (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
                  (not (string-match "/lispref/" log)))  
601          (message "Scanning %s..." log)          (message "Scanning %s..." log)
602          (authors-scan-change-log log table)))          (authors-scan-change-log log table)))
603      (let ((els (authors-process-lines "find" root "-name" "*.el")))      (let ((els (authors-process-lines "find" root "-name" "*.el")))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26