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> |
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"))) |